PC Toledo

Código: Selecionar todos

m
c1515
L
C0000
H12
PF
D11
491100600000200NOME DO CLIENTE
492200600000400NF: 1234567
492200600000600Rota: 1234
492200600000800Pedido: 1234567
492200600001000Palet: 1/1
Q0001
E

Código: Selecionar todos

      If !Empty(aDados)
         aHEtiquetas:= array(3, 5)

         *** etiqueta mais a direita: se diminuir o parâmetro vai mais para a direita
         aHEtiquetas[1, 1]:= strzero(val(f_AcessaIni(PATHDADOS + [MALC.INI], [Ecf], [Etiqueta Tripla Argox])), 4) /// Padrao 0255
         aHEtiquetas[1, 2]:= aHEtiquetas[1, 3]:= aHEtiquetas[1, 4]:= aHEtiquetas[1, 5]:= strzero(val(aHEtiquetas[1, 1]) + 55, 4) //  [0350] //345
 
         *** etiqueta do centro
         aHEtiquetas[2, 1]:= strzero(val(aHEtiquetas[1, 1]) + 360, 4)  /// [0665] /// [0655]
         aHEtiquetas[2, 2]:= aHEtiquetas[2, 3]:= aHEtiquetas[2, 4]:= aHEtiquetas[2, 5]:= strzero(val(aHEtiquetas[2, 1]) + 55, 4) //[0710]

         *** primeira etiqueta
         aHEtiquetas[3, 1]:= strzero(val(aHEtiquetas[2, 1]) + 350, 4) /// era 360 [1025] /// [1015]
         aHEtiquetas[3, 2]:= aHEtiquetas[3, 3]:= aHEtiquetas[3, 4]:= aHEtiquetas[3, 5]:= strzero(val(aHEtiquetas[3, 1]) + 55, 4) //[1070] /// 1065

         y:= 1
         ferase([COD_BARRA.TXT])
         Setalternate([COD_BARRA.TXT])
  
         For j:= 1 to Len(aDados)
             If y == 1 .or. lPrimeiro
                ?? chr(2) + "O0220"
                ?  chr(2) + "m"
                ?  chr(2) + "M3000"
                ?  chr(2) + "c0000"
                ?  chr(2) + "f500"
                ?  chr(2) + "e"
                ?  chr(2) + "LC0000"
                ?  "H16"
                ?  "D11"
                ?  "SC"
                ?  "PC"
                ?  "R0000"
                ?  "z"
                ?  "W"
                ?  "^01"
                lPrimeiro:= .F.
             Endif

             cPreco:= aDados[j, 3]

             If !GetProperty([f_svv04_2], [Ck_Dupla], [Value])
                If !Empty(aDados[j, 4])
                   cPreco+= " " + aDados[j, 4]
                Endif
             Endif

             ? "32110020029" + aHEtiquetas[y, 1] + substr(aDados[j, 1], 1, 3) + [.] + substr(aDados[j, 1], 4, 3) + [.] + substr(aDados[j, 1], 7, 3)
             If y == 1
                ? "42110020029" + strzero(val(aHEtiquetas[1, 1]) - 225, 4) + upper(alltrim(cFantasia_p)) // 80
             Elseif y == 2
                ? "42110020029" + strzero(val(aHEtiquetas[2, 1]) - 225, 4) + upper(alltrim(cFantasia_p)) // 440
             Elseif y == 3
                ? "42110020029" + strzero(val(aHEtiquetas[3, 1]) - 225, 4) + upper(alltrim(cFantasia_p)) // 800
             Endif  

             ? "3d530800115" + aHEtiquetas[y, 2] + substr(alltrim(aDados[j, 1]), 2, 9) + "0"  // codigo de barras
             ? "31110020145" + aHEtiquetas[y, 3] + substr(aDados[j, 2], 1, 23)                // primeira linha da descricao
             ? "31110020165" + aHEtiquetas[y, 4] + substr(aDados[j, 2], 24)                   // continuacao da linha de descricao
             ? "32000030199" + aHEtiquetas[y, 5] + cPreco                                     // preço + codigo custo

             y++
             If y > 3
                ? "Q0001"
                ? "E"
                y:= 1
             Endif
         Next
         If y > 1
            ? "Q0001"
            ? "E"
         Endif

         Setalternate()
         WIN_PrintFileRaw(Alltrim(GetProperty([frmAguarde], [Cb_Impressora], [Item], GetProperty([frmAguarde], [Cb_Impressora], [Value]))), [COD_BARRA.TXT])
      Endif