Jump to content
Fivewin Brasil

cezarmax

Membros
 View Profile  See their activity

  • Posts

    1

  • Joined

  • Last visited

 Content Type 

Posts posted by cezarmax

  1. IMPRESSORA DE ETIQUETAS BEMATECH LB-1000

    in Programação

    Posted

    deu trabalho mais resolvi:
    cPrinter := PrinterPortToName( "USB001" )
    if empty(cPrinter) .or. !("Bematech LB-1000" $ cPrinter)
    cPrinter := PrinterPortToName( "USB002" )
    if empty(cPrinter) .or. !("Bematech LB-1000" $ cPrinter)
    return(NIL)
    endif
    endif
    oprn:=tdosprn():new("ETIQ.TXT")
    oprn:setcoors(00,00)
    oprn:say(oprn:nrow+01, 01, "N" )
    oprn:say(oprn:nrow+01, 01, "R00,00" )
    oprn:say(oprn:nrow+01, 01, "D7" )
    oprn:say(oprn:nrow+01, 01, "Q040,00" )
    oprn:say(oprn:nrow+01, 01, "rN" )
    q:=1
    do while len(vprod1) >= q
    lvcodig:=vcodig[q]
    lvprod1:=vprod1[q]
    lvprod2:=vprod2[q]
    lvpreco:=vpreco[q]
    lvpreco_atacado:=vpreco_atacado[q]
    lvquantidade:=vquantidade[q]
    lqt_etq:=0
    do while vcodig[q] = lvcodig
    ++lqt_etq
    ++q
    if q >= len(vcodig)
    exit
    endif
    enddo
    ltipocbarra := ""
    if isalpha(lvcodig)
    ltipocbarra:="3" // "39"
    elseif len(lvcodig) = 13
    ltipocbarra:="E30" // "EAN13"
    elseif len(lvcodig) = 12
    ltipocbarra:="UA0" // "UPCA"
    elseif len(lvcodig) = 8
    ltipocbarra:="E80" // "EAN8"
    elseif len(lvcodig) < 12
    ltipocbarra:="1" // "128"
    elseif len(lvcodig) = 128
    ltipocbarra:="1" // "128"
    endif
    // nome do produto
    oprn:say(oprn:nrow+01, 01, 'A030,010,0,3,1,2,N,"'+ lvprod1 + lvprod2 + '"' )
    if lvquantidade > 0 // atacado
    oprn:say(oprn:nrow+01, 01, 'A450,030,0,4,2,2,N,"'+ lvpreco + '"' ) // preco varejo
    oprn:say(oprn:nrow+01, 01, 'A450,080,0,4,2,2,N,"'+ lvpreco_atacado + '"' ) // preco atacado
    else
    oprn:say(oprn:nrow+01, 01, 'A480,060,0,5,1,2,N,"'+ lvpreco + '"' ) // preco varejo
    endif
    if lvquantidade > 0 // atacado
    oprn:say(oprn:nrow+01, 01, 'B020,075,0,'+ltipocbarra+',4,25,100,B,"'+lvcodig+'"' ) // codigo de barras
    oprn:say(oprn:nrow+01, 01, 'A450,140,0,3,1,1,N,"'+ "Preço de atacado apartir de " + '"' ) // preco varejo
    oprn:say(oprn:nrow+01, 01, 'A450,160,0,3,1,1,N,"'+ alltrim(str(lvquantidade,3))+" peças" + '"' ) // preco varejo
    else
    oprn:say(oprn:nrow+01, 01, 'B020,075,0,'+ltipocbarra+',4,25,100,B,"'+lvcodig+'"' ) // codigo de barras
    endif
    oprn:say(oprn:nrow+01, 01, 'P'+strzero(lqt_etq,3) )
    oprn:say(oprn:nrow+01, 01, 'N' )
    enddo
    oprn:end(.f. , .f. )
    PrintFileRaw( cPrinter, "ETIQ.TXT", "Impressão de Vendas" )
    endif

    bom dia!

    vc usou essa programacao no visual basic??

×
×
  • Create New...