Paulo1361303230

Bom Tarde à todos. Estou com dificuldades para imprimir cupom não fiscal vinculado, porem após imprimir o cupom fiscal simplesmente a impressora BEMATECH não imprime o referido cupom adicional e nem apresenta mensagem de erro. Onde será que estou errando? Segue abaixo a rotina parcial correspondente ao referido cupom. Agradeço pela atenção. Obs.: oforma, corresponde a forma de pagamento (Dinheiro,Cheque etc etc) nval, corresponde ao valor da transação (nval:=str(valor,8,2) wcupom, corresponde ao cupom fiscal Lembrando tambem, que na impressora fiscal DARUMA ocorre tudo normalmente sendo que o comando é praticamente semelhante ao da BEMATECH ***************************************************************************** * PROGRAMA: bGrvCmdFis.PRG * * FUNCAO..: Envia comando para impressora fiscal. * ***************************************************************************** static FUNCTION bGrvCmdFis(BnCmd,uPar,nLen,cVar1,cVar2,lMens) LOCAL uBuf,cVar01:=cVar02:=cVar03:=cVar04:=cVar05:=cVar06:=cVar07:=cVar08:="",; uDll,ACK,ST1,ST2,Bnret,uRet:=0,cCgc lMens := If(lMens=NIL,.t.,lMens) //ABRE CUPOM NÃO FISCAL ELSEIF BnCmd = 21 Bnret := BmCupAdAbr(oforma,nval,str(wcupom)) //USA CUPOM NÃO FISCAL ELSEIF BnCmd = 22 Bnret := BmCupAdUsa( whist ) //FECHA CUPOM NÃO FISCAL ELSEIF BnCmd = 23 Bnret := BmCupAdFec( ) ************************************************** function babrevin21() // abre Nao Fiscal vinculado ************************************************** MsgRun("Sangria/Suprimento de Caixa","Aguarde...",{||bdll:=loadlib32('bemafi32.dll')}) bDll := LoadLib32("BEMAFI32.DLL") bnRet := 0 IF .NOT. bGrvCmdFis(21,NIL,3,@bnRet) RETURN nil ENDIF ************************************************* function babrevin22() // usa Nao Fiscal vinculado ************************************************* MsgRun("Sangria/Suprimento de Caixa","Aguarde...",{||bdll:=loadlib32('bemafi32.dll')}) bDll := LoadLib32("BEMAFI32.DLL") bnRet := 0 IF .NOT. bGrvCmdFis(22,NIL,3,@bnRet) RETURN nil ENDIF *************************************************** function babrevin23() // fecha Nao Fiscal vinculado *************************************************** MsgRun("Sangria/Suprimento de Caixa","Aguarde...",{||bdll:=loadlib32('bemafi32.dll')}) bDll := LoadLib32("BEMAFI32.DLL") bnRet := 0 IF .NOT. bGrvCmdFis(23,NIL,3,@bnRet) RETURN nil ENDIF José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa Noite à Todos. Estou desenvolvendo o sistema de Farmácia Popular, onde já obtive alguns resultados, porem preciso de um login e senha para continuar o andamento dos trabalhos. Será que alguns dos colegas saberiam informar se existe algum login ou senha disponível para testes e homologação? Obs.: Sem os mesmos não tenho como prosseguir. Grato Pela Atenção Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa Noite à Todos. Estou desenvolvendo o sistema de Farmácia Popular, onde já obtive alguns resultados, porem preciso de um login e senha para continuar o andamento dos trabalhos. Será que alguns dos colegas saberiam informar se existe algum login ou senha disponível para testes e homologação? Obs.: Sem os mesmos não tenho como prosseguir. Grato Pela Atenção Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Orlandof Lhe agradeço de coração, deu certo. abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa Noite Amigos. Poderiam informar-me como posso justificar valores à direita? Pois conforme o comando abaixo, os valores apresentam-se centralizados oPrn:CharSay(nlin,024,(str(venda,12,2))) Obrigado pela atenção. Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa Noite Amigos. Poderiam informar-me como posso justificar valores à direita? Pois conforme o comando abaixo, os valores apresentam-se centralizados oPrn:CharSay(nlin,024,(str(venda,12,2))) Obrigado pela atenção. Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Sinceramente não entendí o retorno dos amigos, pois que eu saiba não tem nenhum comando de salto de página nos comandos da rotina anteriormente postada. Caso exista, eu não sei onde está localizada, seria possível indicar onde estaria o referido salto para que eu possa desabilitar? Obrigado. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Sinceramente não entendí o retorno dos amigos, pois que eu saiba não tem nenhum comando de salto de página nos comandos da rotina anteriormente postada. Caso exista, eu não sei onde está localizada, seria possível indicar onde estaria o referido salto para que eu possa desabilitar? Obrigado. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Amigos, bom dia! Estou tentando gerar etiquetas 31x17 para impressão em impressora matricial. Na primeira folha, a emissão das referidas etiquetas estão corretas, porem ao pular para a segunda folha (picote), simplesmente não obedece o espaço pré-estabelecido, ou seja avança apenas uma linha, alguem poderia dar algum parecer à respeito? Obs. Etiquetas contínuas com remalinas impressas em LX 810. Segue abaixo os procedimentos: #include "FiveWin.ch" #include "label.ch" #include "dbstruct.ch" static nField //----------------------------------------------------------------------------// FUNCTION Main() local oLabel local aStructure Local oFont1 Local oFont2 Local oFont3 DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-09 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-09 BOLD // -12 DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-10 BOLD // -12 use drprodt go bott skip -90 aStructure:={} do while .not. eof() usnom:='Nome fantasia' wdesc:=alltrim(subs(descric,1,15)) ocodi:=codprod wcodi:=alltrim(subs(descric,16,10)) // +' *'+alltrim(str(ocodi,6))+'*' ovalo:=valvend wvalo:='R$ '+alltrim(str(ovalo,9,2))+' *'+alltrim(str(ocodi,6))+'*' Aadd(aStructure,{usnom,wdesc,wcodi,wvalo}) skip enddo IF len(aStructure) == 0 MsgStop("Ausencia de Dados em array") RETU NIL ENDIF nField := 1 // 10 LABEL oLabel SIZE 32.5, 21.10 ; //comprimento x altura SEPARATORS 0,-2.15 ; // separação entre etiquetas horizontal x vertical ON LINE 5 ; // numero de etiquetas por linha FILE "LABEL.PRN" ; PREVIEW ; TO FILE "LABEL.TXT" ; CAPTION "Etiquetas 31,0 x 17,0" ; FONT oFont1,oFont2,oFont3 LBLITEM DATA aStructure[nField][1] FONT 1 LBLITEM DATA aStructure[nField][2] FONT 1 LBLITEM DATA aStructure[nField][3] FONT 1 // fonte código de barras LBLITEM DATA aStructure[nField][4] FONT 3 // RIGHT END LABEL oLabel // acerta as margens superior,inferior e lado esquerdo oLabel:Margin(00,RPT_TOP, RPT_MMETERS) oLabel:Margin(00,RPT_BOTTOM, RPT_MMETERS) oLabel:Margin(00,RPT_LEFT, RPT_MMETERS) // para controle em impressão com base array oLabel:bSkip := {|| nField++} ACTIVATE LABEL oLabel WHILE nField <= len(aStructure) RETURN NIL //---------------------------------------------------------------------------// Antecipadamente agradeço. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 18/05/2007 15:16:46

Amigos, bom dia! Estou tentando gerar etiquetas 31x17 para impressão em impressora matricial. Na primeira folha, a emissão das referidas etiquetas estão corretas, porem ao pular para a segunda folha (picote), simplesmente não obedece o espaço pré-estabelecido, ou seja avança apenas uma linha, alguem poderia dar algum parecer à respeito? Obs. Etiquetas contínuas com remalinas impressas em LX 810. Segue abaixo os procedimentos: #include "FiveWin.ch" #include "label.ch" #include "dbstruct.ch" static nField //----------------------------------------------------------------------------// FUNCTION Main() local oLabel local aStructure Local oFont1 Local oFont2 Local oFont3 DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-09 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-09 BOLD // -12 DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-10 BOLD // -12 use drprodt go bott skip -90 aStructure:={} do while .not. eof() usnom:='Nome fantasia' wdesc:=alltrim(subs(descric,1,15)) ocodi:=codprod wcodi:=alltrim(subs(descric,16,10)) // +' *'+alltrim(str(ocodi,6))+'*' ovalo:=valvend wvalo:='R$ '+alltrim(str(ovalo,9,2))+' *'+alltrim(str(ocodi,6))+'*' Aadd(aStructure,{usnom,wdesc,wcodi,wvalo}) skip enddo IF len(aStructure) == 0 MsgStop("Ausencia de Dados em array") RETU NIL ENDIF nField := 1 // 10 LABEL oLabel SIZE 32.5, 21.10 ; //comprimento x altura SEPARATORS 0,-2.15 ; // separação entre etiquetas horizontal x vertical ON LINE 5 ; // numero de etiquetas por linha FILE "LABEL.PRN" ; PREVIEW ; TO FILE "LABEL.TXT" ; CAPTION "Etiquetas 31,0 x 17,0" ; FONT oFont1,oFont2,oFont3 LBLITEM DATA aStructure[nField][1] FONT 1 LBLITEM DATA aStructure[nField][2] FONT 1 LBLITEM DATA aStructure[nField][3] FONT 1 // fonte código de barras LBLITEM DATA aStructure[nField][4] FONT 3 // RIGHT END LABEL oLabel // acerta as margens superior,inferior e lado esquerdo oLabel:Margin(00,RPT_TOP, RPT_MMETERS) oLabel:Margin(00,RPT_BOTTOM, RPT_MMETERS) oLabel:Margin(00,RPT_LEFT, RPT_MMETERS) // para controle em impressão com base array oLabel:bSkip := {|| nField++} ACTIVATE LABEL oLabel WHILE nField <= len(aStructure) RETURN NIL //---------------------------------------------------------------------------// Antecipadamente agradeço. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 18/05/2007 15:16:46

Bom dia Galera! Estou necessitando urgentemente de uma pessoa com experiência em programação FW para atuar em Santos. E necessário fixar residência na área metropolitana de Santos. E uma pequena empresa que conta com 150 clientes aproximadamente e com arrecadação mensal de taxa de manutenção. E um sistema completo, que atende todas as necessidades de uma empresa, onde contem inclusive TEF (Transferência Eletronica de fundos)onde existe a necessidade de homologação anual. Após a avaliação, será proposto condições de sociedade. Se houver alguem interessado, solicito que envie e-mailpara; drplus@uol.com.br Atenciosamente Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia Galera! Estou necessitando urgentemente de uma pessoa com experiência em programação FW para atuar em Santos. E necessário fixar residência na área metropolitana de Santos. E uma pequena empresa que conta com 150 clientes aproximadamente e com arrecadação mensal de taxa de manutenção. E um sistema completo, que atende todas as necessidades de uma empresa, onde contem inclusive TEF (Transferência Eletronica de fundos)onde existe a necessidade de homologação anual. Após a avaliação, será proposto condições de sociedade. Se houver alguem interessado, solicito que envie e-mailpara; drplus@uol.com.br Atenciosamente Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Mamp Até o presente momento ainda não conseguí uma solução em relação a emissão de etiquetas com código de barras. No fórum, voce sugeriu o seguinte comando para gerar código de barras; @ linha+(sal_lin*0.7),sal_col*07 CODE3_9 te_nome of ip_caixa SIZE 0.6 Porem, não sei nem por onde iniciar, estou completamente perdido. Não querendo lhe pedir muito mais já pedindo (risos), teria como voce me enviar os procedimentos tipo: Um DBF básico Onde constaria a descrição, quantidade etc. A leitura dos dados para posterior geração das etiquetas com o código de barras E finalmente a impressão. Se for o caso de pagar pela informação e pela rotina, não tem problemas, o importante para mim, seria ver o problema solucionado e o meu cliente satisfeito. Abraços Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Alberto Bom Dia! Finalmente conseguí compilar e rodar o sistema, porem com a variável nCodBar=1=C-39 alterada para nCodBar=1 Devido a primeira opção apresentar erros (Variável não existe "C") - Será que falta algum parâmetro? O sistema imprime somente 2 colunas e mesmo que altere para 3, 4, 5 não obedece apenas altera a impressão. Estas seriam as dúvidas preliminares. Agraço muita pela atenção. Abraços Paulo José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Estes seriam os erros: 2=Code128 // Apresentando erro (*) 3=Ean-13 // Idem (*) 4=Upca // Idem (*) (*) Error C2042 Invalid lvalue José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Amigos Linkei a barlib, porem não houve resultados, permanecendo os mesmos erros. Alguem teria mais alguma idéia do que seria? Obrigado Paulo

Já havia incluido.

Vou pesquisar e ver se acho a Barlib.lib Pois não possuo esta lib. Obrigado Paulo

Netsys (Alberto) nCodBar= 1=C-39 2=Code128 // Apresentando erro (*) 3=Ean-13 // Idem (*) 4=Upca // Idem (*) (*) Error C2042 Invalid lvalue O que poderá estar faltando, em relação à informação acima? Grato Paulo

Alberto e Mamp Agradeço muito pela dedicação em citar exemplos nesta minha dúvida, vou realizar os testes. Abraços Paulo

Sérgio Quero lhe agradecer pela atenção dispensada em relação à emissão de etiquetas em código de barras. As etiquetas somente serão emitidas através de impressora Jato de Tinta. A dimensão das etiquetas será 31x17 Pimaco, no momento não estou com o modelo em mãos. Onde constará Nome do estabelecimento Especificação do produto Preço de venda do produto E o código de barras do produto com um máximo de 7 dígitos. Embora eu tenha em mãos a versão 2.7 do FW, ainda estou utilizando a versão 1.95 com clipper 5.3 e blinker 7, pois por enquanto ainda está atendendo os requisitos necessários. Estou tentando utilizar a BARLIB, porem não sei nem onde começar. Desde já lhe agradeço pela ajuda e atenção. Abraços Paulo

Olá Pessoal! Estou há vários meses tentanto desenvolver alguma rotina para emissão de etiquetas com código de barras mediante a quantidade de produtos em estoque. Já recorrí ao Sr.Gilmer, porem a resposta que sempre obtenho é vaga em relação ao que estou necessitando. Foi fornecida várias funções que referem-se à BARLIB, porem até o momento não obtive êxito. Portanto, eu não sei qual seria a ordem em que eu usaria as rotinas referente à barlib. Exemplo: Como gerar o referido código de barras Como imprimir a etiqueta com o código gerado. Lembrando que as mesmas seriam emitidas conforme a quantidade em estoque constando os seguintes dados: Empresa Produto Preço/venda Código de barras Se alguem já possuisse algo montado agradeceria muito. Basta informar-me qual seria o custo ok? Abraços Paulo

Olá Pessoal! Estou há vários meses tentanto desenvolver alguma rotina para emissão de etiquetas com código de barras mediante a quantidade de produtos em estoque. Já recorrí ao Sr.Gilmer, porem a resposta que sempre obtenho é vaga em relação ao que estou necessitando. Foi fornecida várias funções que referem-se à BARLIB, porem até o momento não obtive êxito. Portanto, eu não sei qual seria a ordem em que eu usaria as rotinas referente à barlib. Exemplo: Como gerar o referido código de barras Como imprimir a etiqueta com o código gerado. Lembrando que as mesmas seriam emitidas conforme a quantidade em estoque constando os seguintes dados: Empresa Produto Preço/venda Código de barras Se alguem já possuisse algo montado agradeceria muito. Basta informar-me qual seria o custo ok? Abraços Paulo

Bom Dia! Prezado Senhores; Estou com dificuldades para imprimir o valor correspondente ao suprimento de caixa na impressora fiscal Bematech. Exemplo: Qualquer valor que eu digitar na impressora fiscal sempre será impresso 0.00 A forma de pagamento 'Dinheiro' está correta A variável correspondente ao valor está correta (NVAL) Portanto, gostaria que saber se os colegas teriam alguma solução a respeito. // SUPRIMENTO DE CAIXA ELSEIF BnCmd = 28 Bnret := BmSuprim('Dinheiro',nval,whist)//Suprimento de Caixa DLL32 FUNCTION BmSuprim(nval AS STRING,whist AS STRING ) AS LONG PASCAL ; FROM "Bematech_FI_Suprimento" LIB bDll Obrigado pela atenção de todos Paulo

Bom Dia! Prezado Senhores; Estou com dificuldades para imprimir o valor correspondente ao suprimento de caixa na impressora fiscal Bematech. Exemplo: Qualquer valor que eu digitar na impressora fiscal sempre será impresso 0.00 A forma de pagamento 'Dinheiro' está correta A variável correspondente ao valor está correta (NVAL) Portanto, gostaria que saber se os colegas teriam alguma solução a respeito. // SUPRIMENTO DE CAIXA ELSEIF BnCmd = 28 Bnret := BmSuprim('Dinheiro',nval,whist)//Suprimento de Caixa DLL32 FUNCTION BmSuprim(nval AS STRING,whist AS STRING ) AS LONG PASCAL ; FROM "Bematech_FI_Suprimento" LIB bDll Obrigado pela atenção de todos Paulo