CAT52

[crisvam]

Ola galera,

Alguem tem um arquivo txt da CAT52 que poderia disponibilizar.

Email: crisvam@ibest.com.br

Agradeço ao colega que poder me fazer esta graça.

[Jfernando]

Qual a sua duvida em relação ao arquivo do sintegra. eu tenho programa de livro fiscal que gera todos estes arquivos.

[crisvam]

Qual a sua duvida em relação ao arquivo do sintegra. eu tenho programa de livro fiscal que gera todos estes arquivos.

JFernando,

Grato pela atenção.

Eu preciso utilizar a dll da bematech, mas não tenho nenhum modelo para comparar. Eu queria ter uma noção de como é o arquivo para não ter que encarar o Contador desarmado.

[crisvam]

Alguns clientes ainda usam o cupom fiscal e alguns contadores tem sistema que não importam o cupom pelo sped fiscal, mas importam o CAT52, então me pediram para gerar o CAT52. Eu ví o Lay out no ato cotepe 17/04 e pra atender gerando na munheca eu estou sem tempo. Por isto recorri ao Forum pra ver se alguem já faz isto pela DLL da Bematech, que me pareceu mais fácil.

[Ariston Santos]

Tem um contador que solicita esse arquivo eu sempre envio o TDM e ele aceita.

Até o momento imagino que seja a mesma coisa.

Se for, pelo BEMATOOLS PRO dá para gerar.

[crisvam]

Tem um contador que solicita esse arquivo eu sempre envio o TDM e ele aceita.

Até o momento imagino que seja a mesma coisa.

Se for, pelo BEMATOOLS PRO dá para gerar.

Ariston, obrigado pela atenção. Vou tentar fazer isso. Mas na verdade o que eu gostaria é de uma arquivo para modelo, seja ver o lay out pronto, pra não ter que ler o ato cotepe 17/04 inteiro e....

[mkyx]

eu faço assim:

dta:=left(dtoc(DTI0),2)+substr(dtoc(dti0),4,2)+right(dtoc(dti0),2)
aa:=BmPrintLig()
if aa=1
dir_arq:="C:\ARQUIVOS_DIGITAIS"
IF !LISDIR(DIR_ARQ)
LMKDIR(DIR_ARQ)
ENDIF

M_A:=RIGHT(DTA,2)+"_"+SUBSTR(DTA,3,2)+"_"+LEFT(DTA,2)
M_AA:=RIGHT(DTA,2)+"_"+SUBSTR(DTA,3,2)

DIA0:=VAL(LEFT(DTA,2))
MES0:=VAL(SUBSTR(DTA,3,2))
ANO0:=VAL(RIGHT(DTA,2))
IF ANO0<=50
ANO0:=2000+ANO0
ENDIF
DATT:=CTOD(STRZERO(DIA0,2)+"/"+STRZERO(MES0,2)+"/"+STRZERO(ANO0,4))
M_A:=RIGHT(DTOC(DATT),2)+"_"+SUBSTR(DTOC(DATT),4,2)+"_"+LEFT(DTOC(DATT),2)

ARQ_RET:="RET"+M_A+".TXT"
dir_arq:="C:\ARQUIVOS_DIGITAIS\"+M_AA

IF !LISDIR(DIR_ARQ)
LMKDIR(DIR_ARQ)
ENDIF

ARQ:="C:\CAT52.MFD"
CARQDEST:=SPACE(512)
A:=BmGRCat52Dest("",DTA,CARQDEST)
if a=1
CARQDEST:=ALLTRIM(CARQDEST)
reg_ead:=space(256)
aa:=BmGeraEAD( CARQDEST, c_Pub, c_Priv,reg_ead,1)
if aa#1
? "Não foi possível assinar o arquivo digital,","do dia "+dtoc(DTI0),"Erro: "+alltrim(str(aa,5))
ELSE
ARQ11:=DIR_ARQ+"\"+RIGHT(CARQDEST,LEN(CARQDEST)-AT("\",CARQDEST))
copy file (CARQDEST) to (ARQ11)
ENDIF
else
? "Não foi possível gerar o arquivos digital,","do dia "+dtoc(DTI0),"Erro: "+alltrim(str(a,5))
endif
else
? "ATENÇÃO:","Impressora desligada!","Favor ligá-la e pressionar a tecla ENTER"
endif

Favor fazer as adaptações para o seu sistema

Espero ter ajudado.

Pompeo

Guaratinguetá / SP

[crisvam]

eu faço assim:

dta:=left(dtoc(DTI0),2)+substr(dtoc(dti0),4,2)+right(dtoc(dti0),2)

aa:=BmPrintLig()

if aa=1

dir_arq:="C:\ARQUIVOS_DIGITAIS"

IF !LISDIR(DIR_ARQ)

LMKDIR(DIR_ARQ)

ENDIF

M_A:=RIGHT(DTA,2)+"_"+SUBSTR(DTA,3,2)+"_"+LEFT(DTA,2)

M_AA:=RIGHT(DTA,2)+"_"+SUBSTR(DTA,3,2)

DIA0:=VAL(LEFT(DTA,2))

MES0:=VAL(SUBSTR(DTA,3,2))

ANO0:=VAL(RIGHT(DTA,2))

IF ANO0<=50

ANO0:=2000+ANO0

ENDIF

DATT:=CTOD(STRZERO(DIA0,2)+"/"+STRZERO(MES0,2)+"/"+STRZERO(ANO0,4))

M_A:=RIGHT(DTOC(DATT),2)+"_"+SUBSTR(DTOC(DATT),4,2)+"_"+LEFT(DTOC(DATT),2)

ARQ_RET:="RET"+M_A+".TXT"

dir_arq:="C:\ARQUIVOS_DIGITAIS\"+M_AA

IF !LISDIR(DIR_ARQ)

LMKDIR(DIR_ARQ)

ENDIF

ARQ:="C:\CAT52.MFD"

CARQDEST:=SPACE(512)

A:=BmGRCat52Dest("",DTA,CARQDEST)

if a=1

CARQDEST:=ALLTRIM(CARQDEST)

reg_ead:=space(256)

aa:=BmGeraEAD( CARQDEST, c_Pub, c_Priv,reg_ead,1)

if aa#1

? "Não foi possível assinar o arquivo digital,","do dia "+dtoc(DTI0),"Erro: "+alltrim(str(aa,5))

ELSE

ARQ11:=DIR_ARQ+"\"+RIGHT(CARQDEST,LEN(CARQDEST)-AT("\",CARQDEST))

copy file (CARQDEST) to (ARQ11)

ENDIF

else

? "Não foi possível gerar o arquivos digital,","do dia "+dtoc(DTI0),"Erro: "+alltrim(str(a,5))

endif

else

? "ATENÇÃO:","Impressora desligada!","Favor ligá-la e pressionar a tecla ENTER"

endif

Favor fazer as adaptações para o seu sistema

Espero ter ajudado.

Pompeo

Guaratinguetá / SP

Pompeo, grato pela atenção. Vou testar e lhe darei um retorno