Windev21 Aulas,Estudos e Desenvolvimento: AULA 1316 WINDEV ACBR 023

VIDEO YOUTUBE CRIARCTE WINDEV ACBR

ACBR INSTALAR - INICIO - ACBR 001 - AULA 1291
ACBR - COMO CONFIGURAR - ACBR 002 - AULA 1292
STATUS SERVICO - ACBR 003 AULA 1293
DANF ACBR PARTE 1 - ACBR 004 AULA 1294

DANF PDF ACBR - ACBR 005 AULA 1295

CONSULTA NFE - ACBR 006 AULA 1296

CADASTRO CONTRIBUINTE ACBR - ACBR 007 AULA 1297
ACBR AJUSTES PROCEDURES - ACBR 008 AULA 1298
NCM DESCRICAO - ACBR 009 AULA 1299
NFE.CRIANFE 1A PARTE ACBR 010 AULA 1300
NFE.CRIARNFE 2A PARTE ACBR 011 AULA 1301
NFE.CRIARNFE 3A PARTE CODE ACBR 012 AULA 1302
NFE.ENVIARNFE ACBR 1A PARTE ACBR 013 AULA 1303
NFE ENVIARNFE ACBR 2A PARTE ACBR 014 AULA 1304
NFE ENVIARNFE ACBR 3A PARTE ACBR 015 AULA 1306
NFE ENVIARNFE ACBR 4A PARTE ACBR 016 AULA 1308
NFE.CancelarNFE WINDEV ACBR 017 AULA 1309
INUTILIZAR ACBR 018 AULA 1310
CARTA CORRECAO - NFe.EnviarEvento - ACBR 019 AULA 1311
LERINI ACBR CONFIGURACAO 020 AULA 1313

TUTORIAL INSTALAÇÃO ACBR http://www.pctoledo.com.br/forum
ANDRE MORAES - http://anfm.blogspot.com.br/2009/09/campos-para-criar-uma-nfe-usando-o.html
PROJETO ACBR MONITOR - https://www.projetoacbr.com.br/acbrmonitor-3
COMO BAIXAR FONTE ACBR - http://www.pctoledo.com.br/forum
FORUM ACBR - https://www.projetoacbr.com.br/forum/files/
http://anfm.blogspot.com.br/
HELP ON-LINE

ACBR SITE

http://acbr.sourceforge.net/ACBrMonitor/SintaxedosComandosACBr.html

http://acbr.sourceforge.net/ACBrMonitor/CTECriarCTe.html

PROCEDURE VERIFICA_ARQUIVO_SAIDA_CONHECIMENTO(_diretorio_Arquivo_saida is string="")

IF fFileExist(_diretorio_Arquivo_saida) THEN
fDelete(_diretorio_Arquivo_saida)
END

PROCEDURE VERIFICA_ARQUIVO_RETORNO_CONHECIMENTO(s_DIRETORIO_ARQUIVO_ENTRADA is string="",s_XML is string="", ...
s_DIRETORIO_ARQUIVO_SAIDA is string="",sVem_onde is string="",_numero_nota is int=0, ...
s_titulo_arquivo is string="",s_diretorio is string="")
s_RETORNO is string=""
t_hora is Time=TimeSys()
s_nome_resumo_arquivo is string=s_titulo_arquivo+"_"
IF _numero_nota<>0 THEN
s_nome_resumo_arquivo+=NumToString(_numero_nota,"06d")+"_"
END
IF sVem_onde<>"" THEN
s_nome_resumo_arquivo+=NoSpace(sVem_onde)+"_"
END
s_nome_resumo_arquivo+="h"+t_hora..Hour+"_"+"m"+t_hora..Minute+"_"+"s"+t_hora..Second
s_diretorio_auditoria is string=s_diretorio+"MATOS\201712\22_12_2017\"
IF fMakeDir(s_diretorio_auditoria) THEN
END
s_ARQUIVO is string=s_diretorio_auditoria+s_nome_resumo_arquivo+"_ent.txt"
fSaveText(s_ARQUIVO,s_XML)
fSaveText(s_DIRETORIO_ARQUIVO_ENTRADA,s_XML)
s_RETORNO=""
b_existe is boolean=False
n_CONTADOR is int=0
LOOP
IF fFileExist(s_DIRETORIO_ARQUIVO_SAIDA) THEN
s_RETORNO=fLoadText(s_DIRETORIO_ARQUIVO_SAIDA)
IF s_RETORNO<>"" THEN
b_existe=True
BREAK
END
END
n_CONTADOR++
Message(n_CONTADOR)
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
IF YesNo(sVem_onde+CR+"VAI SAIR DESEJA?") THEN
s_ARQUIVO=""
s_RETORNO=""
BREAK
END
END
END
IF b_existe=True THEN
s_ARQUIVO=s_diretorio_auditoria+s_nome_resumo_arquivo+"_sai.txt"
fSaveText(s_ARQUIVO,s_RETORNO)
END
RESULT (s_RETORNO,s_ARQUIVO)

[infCte]
versao=3.0
[ide]
cCT=12345678
CFOP=5353
natOp=TRANSPORTE
forPag=0
mod=57
serie=1
nCT=1
dhEmi=15/12/2012
tpImp=1
tpemis=1
procEmi=3
verProc=000
dhCont=30/12/1899
xJust=
tpCTe=0
refCTe=
cMunEnv=4112009
xMunEnv=XXXXXXX
UFEnv=XX
modal=01
tpServ=0
cMunIni=1234567
xMunIni=xxxxxxx
UFIni=XX
cMunFim=1234567
xMunFim=xxxxxx
UFFim=XX
retira=1
xDetRetira=
cUF=41
indGlobalizado=0
indIEToma=1
[toma3]
toma=3
[toma4]
toma=0
CNPJCPF=
IE=
xNome=
xFant=
fone=
xLgr=
nro=
xCpl=
xBairro=
cMun=
xMun=
CEP=
UF=
cPais=
xPais=
email=
[compl]
xEmi=
tpPer=0
tpHor=0
origCalc=
destCalc=
xObx=
[emit]
CNPJ=1234567890123
IE=1234566
xNome=XXXXXXXXXXXXXX
xFant=XXXXXXXXXXXXXXXXX
xLgr=XXXX
nro=115
xCpl=
xBairro=XXXXXX
cMun=123456
xMun=XXXXX
CEP=12345678
UF=XX
fone=12345646
[rem]
CNPJCPF=123456987
IE=1321231
xNome=CLIENTE DE TESTE
xFant=
fone=
xLgr=RUA DA RUA
nro=SN
xCpl=
xBairro=BAIRRO
cMun=1321321
xMun=XXXXXX
CEP=0
UF=XX
PaisCod=1058
Pais=BRASIL
Email=
[locColeta]
CNPJCPF=12345678901234
xNome=Nome da coleta
xLgr=rua x
nro=0
xCpl=complemento
xBairro=nome bairro
cMun=4234520
xMun=nome
UF=SC
[infNF001]
nRoma=0
nPed=1
mod=01
serie=1
nDoc=2
dEmi=12/05/2014
vBC=0,00
vICMS=0,00
vBCST=0,00
vST=0,00
vProd=0,00
vNF=0,00
nCFOP=0000
nPeso=0
PIN=00
CNPJCPF=12345678901234
xNome=nome
xLgr=rua
nro=0
xCpl=ao lado
xBairro=bairro
cMun=0
xMun=nome
UF=SC
[infNFe001]
chave=01234567890123456789
PIN=
dPrev=
[Dest]
CNPJCPF=07760099000179
IE=
xNome=DESTINATARIO DE TESTE
fone=
xLgr=RUA DA RUA
nro=SN
xCpl=
xBairro=BAIRRO
cMun=123546
xMun=XXXXXXX
CEP=0
UF=XX
cPais=1058
xPais=BRASIL
[vPrest]
vTPrest=500
vRec=500
[ICMSSN]
indSN=1
[infCarga]
vCarga=1000
proPred=CAIXAS DE MADEIRAS
xOutCat=
vCargaAverb=
[infQ001]
cUnid=00
tpMed=METRO 3
qCarga=100
[Rodo]
RNTRC=12345678
dPrev=20/12/2012
lota=0
[occ]
serie=
nOcc=
dEmi=
CNPJ=
cInt=
IE=
UF=
fone=