Windev21 Aulas,Estudos e Desenvolvimento: 01/07/18

VIDEO WINDEV ACBR CRIARCTE REMETENTE

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 _0970_010_rem()
s_nfe_xml is string=[
[rem]
CNPJCPF=#CNPJCPF#
IE=#IE#
xNome=#xNome#
xFant=#xFant#
fone=#fone#
xLgr=#xLgr#
nro=#nro#
xCpl=#xCpl#
xBairro=#xBairro#
cMun=#cMun#
xMun=#xMun#
cep=#cep#
UF=#UF#
PaisCod=#PaisCod#
pais=#pais#
email=#email#
]

_CNPJCPF is string=""
_IE is string=""
_xNome is string=""
_xFant is string=""
_fone is string=""
_xLgr is string=""
_nro is string=""
_xCpl is string=""
_xBairro is string=""
_cMun is string=""
_xMun is string=""
_cep is string=""
_UF is string=""
_PaisCod is string=""
_pais is string=""
_email is string=""

HReadSeekFirst(cliente,id_empresa_cliente,conhecimento.codigo_remetente_112)
IF HFound(cliente) THEN

_CNPJCPF=cliente.cnpj_cpf
_IE=cliente.inscricao_estadual
_xNome=cliente.razao_social_nome
_xFant=cliente.nome_fantasia
_fone=""
IF cliente.telefone<>"" THEN
_fone="51"
IF cliente.telefone_ddd<>"" THEN
_fone=cliente.telefone_ddd
END
_fone=cliente.telefone
END
_xLgr=cliente.endereco_rua
_nro=cliente.endereco_numero
_xCpl=cliente.endereco_complemento
_xBairro=cliente.endereco_bairro
_cMun=cliente.endereco_cmun
_xMun=cliente.endereco_cidade
_cep=cliente.endereco_cep
_UF=cliente.endereco_uf
_PaisCod=cliente.Endereco_cpais
_pais=cliente.endereco_pais
_email=cliente.email

END

s_nfe_xml=Replace(s_nfe_xml,"#CNPJCPF#",_CNPJCPF)
s_nfe_xml=Replace(s_nfe_xml,"#IE#",_IE)
s_nfe_xml=Replace(s_nfe_xml,"#xNome#",_xNome)
s_nfe_xml=Replace(s_nfe_xml,"#xFant#",_xFant)
s_nfe_xml=Replace(s_nfe_xml,"#fone#",_fone)
s_nfe_xml=Replace(s_nfe_xml,"#xLgr#",_xLgr)
s_nfe_xml=Replace(s_nfe_xml,"#nro#",_nro)
s_nfe_xml=Replace(s_nfe_xml,"#xCpl#",_xCpl)
s_nfe_xml=Replace(s_nfe_xml,"#xBairro#",_xBairro)
s_nfe_xml=Replace(s_nfe_xml,"#cMun#",_cMun)
s_nfe_xml=Replace(s_nfe_xml,"#xMun#",_xMun)
s_nfe_xml=Replace(s_nfe_xml,"#cep#",_cep)
s_nfe_xml=Replace(s_nfe_xml,"#UF#",_UF)
s_nfe_xml=Replace(s_nfe_xml,"#PaisCod#",_PaisCod)
s_nfe_xml=Replace(s_nfe_xml,"#pais#",_pais)
s_nfe_xml=Replace(s_nfe_xml,"#email#",_email)

RESULT s_nfe_xml