JUDSON ROSA

Pessoal que tem sistema para posto de Combustivel da uma força ai

 dia 30/10/2023 entrou isso em vigor 

no produto GASOLINA a unidade tributavel era KG/LT/M3 , passou a dar esse erro :

* Rejeicao: Unidade Tributavel incompativel com produto informado [nItem:1]

Mudei para a unidade  L , e passou a dar esse outro erro:

Rejeicao: Obrigatorio o preenchimento do indice de mistura do Biodiesel [nItem:1]

essa tag pBio , eu nao tenho no sistema ,alguem pode dar uma força sobre essa nova mudança ???

Aqui  usamos dois:

teamviewer  ( PAGO )

estamos satisfeitos com o produto 

vc consegue padronizar o teamviewer client com suas cores e logomarca e chamar so seu sistema.

anydesk ( free )

bom  , mas como free  existe as limitações ( ex: permissões qd precisa ao instalar algum software )

valeu obrigado irei verificar tbm.

obrigado , vou verificar 

Boa tarde,

Alguem usa algum serviço de terceiros que retorne o recebimento do PIX ??

Ja vi isso em alguns sistemas de automacao , uma empresa disponibiza um APP ( tipo o TEF) , apos o pagamento pelo pix ele retorna OK para o sistema comercial ,

Alguem uso algum serviço desse ??

caso usem me passem o contato por favor , estou precisando urgente . desde  ja obrigado.

Pessoal obrigado , como  faz tempo  nao programo para esses tipos de impressoras ,

pelos comandos  q foram passados , vi q sao os mesmos  q uso na ARGOX .

agora é so adaptar . valeu 

19 horas atrás, Frazato disse:

Utilize o chr(002) no início para iniciar as configurações.

9 horas atrás, mkyx disse:

Eu faço assim, nessa impressora: 

Analisa aí, os comandos da impressora

 

arq_file:="TPETI"+STRZERO(T_MAQ,3)+".TXT"
oPrn:=TDosPrn():New(arq_file)
oPrn:startpage()
n_lin:=0
QT00=0
SELECT arq_esto
ARQ_ESTO->(DBSETORDER(2)) 
ARQ_ESTO->(ORDSCOPE(0,""))
ARQ_ESTO->(ORDSCOPE(1,""))
IF CODI>0
   SS=STRZERO(CODI,6)
   ARQ_ESTO->(DBSEEK(SS))
ENDIF
IF CODI=0 .AND. CODF=0
   ARQ_ESTO->(DBGOTOP())
ENDIF
TPE:=TPETIQ
COL02:={}
A=1
QT1=QTI
QT100=QTI
AVANCOU:="N"
//   T_ETIQ:={""}
if tpe=1
   
   COL02:={}
   FOR I=1 TO LEN(COL01)
       select arq_esto
       ARQ_ESTO->(DBsetorder(2))
       cod:=col01
       if ARQ_ESTO->(DBseek(cod))
          qt_1:=if("M2"$upper(arq_esto->unidade) .or. "M3"$upper(arq_esto->unidade) .or. "M "$upper(arq_esto->unidade) .or. "M. "$upper(arq_esto->unidade) .or. "METRO"$upper(arq_esto->unidade) .or. "KILO"$upper(arq_esto->unidade) .or. "KG"$upper(arq_esto->unidade) .or. "GR"$upper(arq_esto->unidade) .or. "GRANEL"$upper(arq_esto->unidade) .or. "G. "$upper(arq_esto->unidade),1,ARQ_ESTO->QUANTIDADE)
          qt100:=iif(qti=0,QT_1,qti)
          qt100:=if(qt100<=0,1,qt100)
          FOR Z=1 TO QT100
              AADD(COL02,COD)
          NEXT
       ENDIF
   NEXT
   FOR I=1 TO LEN(COL03)
       select arq_esto
       ARQ_ESTO->(DBsetorder(2))
       cod:=col03[i,1]
       qt100:=col03[i,4]
       if qt100>0
          if ARQ_ESTO->(DBseek(cod))
             qt100:=if(qt100<=0,1,qt100)
             FOR Z=1 TO QT100
                 AADD(COL02,COD)
             NEXT
          ENDIF
       endif
   NEXT
   
   qt100:=-10
   N_QT:=0
   CETIQ:=0
   POS:=0
   if len(col02)>0
**      oPrn:Say(0,0,CHR(2)+"e"+CHR(13))
      oPrn:Say(0,0,CHR(2)+"KI70"+CHR(13))
      oPrn:Say(0,0,CHR(2)+"m"+CHR(13))
      oPrn:Say(0,0,CHR(2)+"M0300"+CHR(13))
      oPrn:Say(0,0,CHR(2)+"L"+CHR(13))
      oPrn:Say(0,0,"H16"+CHR(13))
      oPrn:Say(0,0,"D11"+CHR(13))
**    oPrn:Say(0,0,"c0300"+CHR(13))
      if etiqi=2
         POS1:=30+537
         POS2:=320+537
         POS3:=420+537
         POS4:=288+537
         POS5:=400+537
         POS6:=20+537
         POS7:=30+537
      else   
         POS1:=30
         POS2:=320
         POS3:=420
         POS4:=288
         POS5:=400
         POS6:=20
         POS7:=30
      endif
      for i_1:=1 to len(col02)
          select arq_esto
          set order to 2
          cod:=col02[i_1]
          seek cod
          if ARQ_ESTO->(found())
             qt100:=iif(qt100=0,int(arq_esto->quantidade),qt100)
             qt100:=if(qt100<=0,1,qt100)
             DE:=alltrim(left(ARQ_ESTO->DESCRICAO,35))
             PU:=ARQ_ESTO->AVISTA
             LOTE:=ARQ_ESTO->COD_EAN13
             IF VAL(ALLTRIM(LOTE))=0
                LOTE:=ARQ_ESTO->CODIGO
             ENDIF
             IF LEN(ALLTRIM(STR(VAL(LOTE),13)))<=12
                LOTE:=LEFT(LOTE,12)
                LOTE:=ALLTRIM(STR(VAL(LOTE),13))
                LOTE:="789"+STRZERO(VAL(LOTE),9)
                DIGI:="131313131313"
                T=0
                FOR I0=1 TO 12
                    T:=T+(VAL(SUBSTR(LOTE,I0,1))*VAL(SUBSTR(DIGI,I0,1)))
                NEXT I0
                DIG="0"
                IF (T/10)>INT(T/10)
                   DIG:=STR(((INT(T/10)+1)*10)-T,1)
                ENDIF
                LOTE:=LOTE+DIG
             ELSE
                LOTE:=COD_EAN13
             ENDIF
**           oPrn:Say(0,0,"19110030197"+STRZERO(POS1,4)+NO_E+CHR(13))
**           oPrn:Say(0,0,"1X1100001000200L200010") 
             oPrn:Say(0,0,"19110000215"+STRZERO(POS1,4)+NO_E+CHR(13))
             
             oPrn:Say(0,0,"19110020210"+STRZERO(POS5,4)+str(val(cod))+CHR(13))
             
**             oPrn:Say(0,0,"1 3 1 2 000 0160 0050"+DE+CHR(13))

             clin3:="R$"
             oPrn:Say(0,0,"19110030165"+STRZERO(POS2+25,4)+cLin3+CHR(13))

             IF AVI
                clin2:=TRANSFORM(AVISTA,"@E 999999.99")
                clin3:="Av"
                oPrn:Say(0,0,"19110030165"+STRZERO(POS3,4)+cLin3+CHR(13))
             ELSE
                clin2:=TRANSFORM(APRAZO,"@E 999999.99")
                clin3:="Ap"
                oPrn:Say(0,0,"19110030165"+STRZERO(POS3,4)+cLin3+CHR(13))
                
             ENDIF
             oPrn:Say(0,0,"19110050082"+STRZERO(POS4+20,4)+cLin2+CHR(13))
             
**             oPrn:Say(0,0,"19110010060"+STRZERO(POS5,4)+str(val(cod))+CHR(13))
             CTIPBAR:="F"
             CBAR:=LOTE
**             oPrn:Say(0,0,"1"+cTipBar+"3 2 060 0015"+STRZERO(POS1,4)+cBar+CHR(13))
             oPrn:Say(0,0,"1"+cTipBar+"321000075"+STRZERO(POS6,4)+cBar+CHR(13))
             
**             oPrn:Say(0,0,"1 2 1 2 000 0030 0015"+DE+CHR(13))
             oPrn:Say(0,0,"19110020012"+STRZERO(POS7,4)+DE+CHR(13))
             oPrn:Say(0,0,"Q0001"+CHR(13))

             POS1:=30+537
             POS2:=320+537
             POS3:=420+537
             POS4:=288+537
             POS5:=400+537
             POS6:=20+537
             POS7:=30+537
             
             IF (INT(I_1/2)=I_1/2 .AND. I_1<LEN(COL02) .and. etiqi=1) .or. (etiqi=2 .and. INT(I_1/2)#I_1/2 .AND. I_1<LEN(COL02)) 
                oPrn:Say(0,0,CHR(2)+"F"+CHR(13))
                oPrn:Say(0,0,"E"+CHR(13))
                oPrn:Say(0,0,CHR(2)+"m"+CHR(13))
                oPrn:Say(0,0,CHR(2)+"M0500"+CHR(13))
                oPrn:Say(0,0,CHR(2)+"L"+CHR(13))
                oPrn:Say(0,0,"H10"+CHR(13))
                oPrn:Say(0,0,"D11"+CHR(13))
                POS1:=30
                POS2:=320
                POS3:=420
                POS4:=288
                POS5:=400
                POS6:=20
                POS7:=30
                
             ENDIF
          endif
      next
      oPrn:Say(0,0,CHR(2)+"f220"+CHR(13))
      oPrn:Say(0,0,"E"+CHR(13))
   endif
ENDIF
oPrn:EndPage()
oPrn:End()
printfileraw(cprinter,TrueName(arq_file))

 

fiz desse jeito e nao imprime .

nao , vejo amanha , obg

Boa tarde ,

Alguem ja fez alguma rotina para esse impressora  de etiquetas ? em especial etiqueta de condolas.

a instalação e porta estão corretas , mando teste de impressão e funciona normal , mas qd mando esses comando BPLA.

N
O
D9
S3
JF
Q1112,40
q832
A730,0,1,5,1,1,N,"NOME DA EMPRESA"
A610,0,1,5,1,2,N,"NF: 2097272"
A460,0,1,5,1,2,N,"ROTA: 451233"
A300,0,1,5,1,2,N,"PEDIDO: 1234564"
A160,0,1,5,1,2,N,"PALET: 1/1 "
P1

Não funciona so da um avanço , 

alquem pode me dar uma ajuda ?????

valeu pessoal muito obrigado vou começar entao , eu uso a flexdocs para nfe e nfce com a classe do gilmer a muito tempo , estamos satisfeitos ate hj , realmente a flexdocs tem esse custo de 50,00 por cnpj , por enquanto vou deixar essa parte como esta , 

agora , ja q a ACBR como      foi dito aqui q nao tem esse custo , vou estudar como fazer  MDFE , pq me parece q para usar o MDFE com a flexdocs tem comprar a DLL q nao e a mesma da nfe.

obrigado a todos.

59 minutos atrás, vilian disse:

Bom dia Judson,
Eu fiz usando a ACBrMDFe32. Vc é assinante ACBr Pro ? Há um exemplo de uso da lib em Harbour no forum deles.

bom dia , nao sou usuario dos produtos da ACBR , como faço para chegar ate eles ?? 

Boa tarde , algum dos colegas tem uma rotina ( com fontes ) para gerar MDF-e usando flexdocs ou outra ferramenta ,

quer queira compartilha ou mesmo negociar ??

no aguardo.

contatos:

judson.judson69@gmail.com 

98988376472 ( whatsapp ) 

eu uso essa funcao e funciona em qualquer versao de windows , atualize a dll , baixe a mais recente , verifique todas as informacoes desse email.

boa tarde , agora deu esse erro :

Executando: harbour.exe "C:\Guardiao_nfce\lib_pix.prg" /q /o"C:\Guardiao_nfce\lib_pix.c"   /M  /N 
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
lib_pix.c:

Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 18: Declaration syntax error  

aponta para essa linha  -    uint16_t    crc_ccitt_ffff(    const unsigned char *input_str, size_t num_bytes       );

Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 23: Declaration syntax error

aponta para essa linha  -    static uint16_t      crc_ccitt_generic( const unsigned char *input_str, size_t num_bytes, uint16_t start_value );

Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 27: Declaration syntax error

aponta para essa linha  -        static uint16_t         crc_tabccitt[256];

Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 30: Declaration syntax error

aponta para essa linha  - static uint16_t      crc_tab[256];
 

Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 40: Declaration syntax error

aponta para essa linha  - uint16_t crc_ccitt_ffff( const unsigned char *input_str, size_t num_bytes ) {

*** 5 errors in Compile ***

Emotta , compilei e o meu esta dando esses erros:

sera q e a versao do bcc ??

Error E2209 C:\\Guardiao_nfce\\lib_pix.prg 38: Unable to open include file 'stdbool.h'
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 47: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 52: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 55: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 56: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 58: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 59: Declaration syntax error
Error E2141 C:\\Guardiao_nfce\\lib_pix.prg 69: Declaration syntax error
*** 8 errors in Compile ***

ei sei kapy , mais ele nao so tem nas versoes mais novas ?

Baixei a  RFOLDER DO Ricardo ,  so nao consigo usar com RESOURCE , somente para @ comandos

alguem usa que possa me enviar ???

kapy , uso a versao xh 12.1 kkkk , mais  tenho a versao xh 19.06 ( onde fiz um teste e nesta tem o hb_sha1()  ) ,

nao mudei ainda pq nao tenho a versao libmySQL.lib para o xh 19.06  , a pesar q o xh 19.06 tem  o mariadb , mas o q falta e o tempo ,

se alguem tiver a libmySQL.lib para xh 19.06 eu agradeço.

E kapi achei a função onde vc apontou , mas a maesma o hb_sha1() , essa da erro , ou seja nao existe na minha versao 

alguem sabe me dizer onde encontro esta funcao

ChashQRCODE := CRIA_HASHCODE(LINHA,W_NFE_CODIGO_CSN)

Ja q a versao q eu uso do xharbour  nao tem o hb_sha1 , queria sabe se alguem ou o Paulo PJ teria como me passar essa funcao.

Preciso criar o hash  para completar minha rotina :

cDados_URL := 'chNFe='     + cCHNFE +;
              '&nVersao='  + versaoQRCode +;
              '&tpAmb='    + cTpAmb +; 
              '&dhEmi='    + Lower(str2hex(cdhemi)) +;   
              '&vNF='      + alltrim(CVNF)+;
              '&vICMS='    + alltrim(CVICMS)+;
              '&digVal='   + Lower(str2hex(cdigval))+;
              '&cIdToken=' + alltrim( IdToken ) 
         
// criando o hash
         
cCodigo_hash := hb_sha1(cDados_URL)  // --------->>>>>>>>>>>>>>>>>   AQUI DA ERRO ( POIS MINHA VERSAO NAO TEM ESSA FUNCAO NO XHARBOUR ) 

URL0 := URLConsulta + "?" 
URL0 := URL0 + cDados_URL
URL0 := URL0 + '&cHashQRCode=' + Upper(cCodigo_hash)

no aguardo ..

valeu pela dica  

Boa noite , como faço para GRAVAR as alterar nas linha de um txt usando o TTxtfile() ??

   // Ler Arquivo                              
   cFile := cArqTxt
   oFile := TTxtFile():New(  cFile   )
   
   // linhas 
   Do while ! oFile:lEof()
   
       cLinha := oFile:ReadLine()

       If ( empty( alltrim( cLinha ) ) )
            Exit
       Endif
       
       ****************>>>   AQUI ALTERA A INFORMAÇÃO DE   cLinha  E QUERO GRAVAR  COM ESSA ALTERAÇÃO  *********                 
       
       // Próxima Linha
       oFile:Skip()

   Enddo
      
   oFile:Close()

obrigado a todos pela ajuda , em especial ao alessandro . a rotina ficou assim:

DEFINE DIALOG oDlg_BUSCA FROM 110,acoor_H-500 TO 550,acoor_H-048 PIXEL STYLE (WS_POPUP+DS_MODALFRAME ) FONT oFontG 
oDlg_BUSCA:bPainted = { || ACG_ImagemFundo() }

oDlg_BUSCA:lTransparent := .t.

Activate Dialog oDlg_BUSCA 

function ACG_ImagemFundo (  )
************************

oIma_BUSCA := TImage():Define(  "ACG_BUSCARACGINV", , oDlg_BUSCA )
oDlg_BUSCA:SayBitmap( 0, 0, oIma_BUSCA, oDlg_BUSCA:nWidth(), oDlg_BUSCA:nHeight() )

Return(.T.)
 

a imagem ficou  ajustada na dialog como uma marca dágua , do jeito que eu queria , valeu 

8 horas atrás, aferra disse:

Veja se assim resolve.

oDlg_BUSCA:bPainted := {||  ImagemFundo(oDlg_BUSCA) }

ou 

Active ....  ON PAINT ImagemFundo( oDlg_BUSCA )

Static Function ImagemFundo( oDlg )
Local oImg

        oImg := TImage():Define(  "ACG_BUSCARACGINV", , oDlg )
        oDlg:SayBitmap( 0, 0, oImg, oDlg:nWidth(), oDlg:nHeight() )
 

Return(.T.)

 

Valeu garoto , funcionou , obrigado