Windev21 Aulas,Estudos e Desenvolvimento: AULA 1301 WINDEV ACBR 011

VIDEO YOUTUBE WINDEV ACBR 012 NFE.CRIARNFE

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/NFECriarNFe.html

// GLOBAL DECLARATIONS OF WIN_ACBR
//VARIAVEIS DE TOTAIS NO GLOBAL DA WIN_ACBR
_TOTAIS_vBC is currency=0
_TOTAIS_vICMS is currency=0
_TOTAIS_vICMSDeson is currency=0
_TOTAIS_vBCST is currency=0
_TOTAIS_vST is currency=0
_TOTAIS_vProd is currency=0
_TOTAIS_vFrete is currency=0
_TOTAIS_vSeg is currency=0
_TOTAIS_vDesc is currency=0
_TOTAIS_vII is currency=0
_TOTAIS_vIPI is currency=0
_TOTAIS_vPIS is currency=0
_TOTAIS_vCOFINS is currency=0
_TOTAIS_vOutro is currency=0
_TOTAIS_vNF is currency=0
_TOTAIS_vTotTrib is currency=0
_TOTAIS_vFCP is currency=0
_TOTAIS_vFCPST is currency=0
_TOTAIS_vFCPSTRet is currency=0
_TOTAIS_vIPIDevol is currency=0
//VARIAVEIS DE TOTAIS

//VARIAVEIS TOTAIS ISSQN
_ISSQNtot_vServ is currency=0
_ISSQNtot_vBC is currency=0
_ISSQNtot_vISS is currency=0
_ISSQNtot_vPIS is currency=0
_ISSQNtot_vCOFINS is currency=0
_ISSQNtot_dCompet is string=""
_ISSQNtot_vDeducao is currency=0
_ISSQNtot_vOutro is currency=0
_ISSQNtot_vDescIncond is currency=0
_ISSQNtot_vDescCond is currency=0
_ISSQNtot_vISSRet is currency=0
_ISSQNtot_cRegTrib is string=""

// BTN_CRIAR_NFE
_005_010_gerar_xml()
_500_010_envia_xml()

PROCEDURE _005_010_gerar_xml()

_003_010_ZERA_CAMPOS()

s_retorno is string=""
s_xml is string=""

s_xml=[
NFE.CriarNFe(
[infNFe]
versao=#versao#
#Identificacao#
#NFRefXXX#
#Emitente#
#Avulsa#
#Destinatario#
#Retirada#
#Entrega#
#autXMLXXX#
#ProdutoXXX#
#NVEXXXYYY#
#DIXXXYYY#
#LADIXXXYYYKKK#
#detExportXXXYYY#
#impostoDevolXXX#
#VeiculoXXX#
#rastroXXXYYY#
#MedicamentoXXXYYY#
#ArmaXXXYYY#
#CombustivelXXX#
#CIDEXXX#
#ICMSCombXXX#
#ICMSInterXXX#
#ICMSConsXXX#
#ICMSXXX#
#ICMSUFDEST_XXX#
#IPIXXX#
#IIXXX#
#PISXXX#
#PISSTXXX#
#COFINSXXX#
#COFINSSTXXX#
#ISSQNXXX#
#Total#
#ISSQNtot#
#retTrib#
#Transportador#
#ReboqueXXX#
#VolumeXXX#
#LacreXXXYYY#
#Fatura#
#DuplicataXXX#
#PAG_XXX#
#DadosAdicionais#
#InfAdicXXX#
#ObsFiscoXXX#
#procRefXXX#
#Exporta#
#Compra#
#cana#
#forDia_XXX#
#deduc_XXX#
)
]
//
//
//
//
//

_versao is string="3.10"
s_xml=Replace(s_xml,"#versao#",_versao)

s_xml_iten is string=""

s_xml_iten=_020_010_Identificacao()
s_xml=Replace(s_xml,"#Identificacao#",s_xml_iten)

s_xml_iten=_030_010_NFRefXXX()
s_xml=Replace(s_xml,"#NFRefXXX#",s_xml_iten)

PROCEDURE _020_010_Identificacao()

s_nfe_xml is string=[
[Identificacao]
cNF=#cNF#
natOp=#natOp#
indPag=#indPag#
mod=#mod#
serie=#serie#
nNF=#nNF#
dhEmi=#dhEmi#
dhSaiEnt=#dhSaiEnt#
tpNF=#tpNF#
idDest=#idDest#
tpImp=#tpImp#
tpEmis=#tpEmis#
finNFe=#finNFe#
indFinal=#indFinal#
indPres=#indPres#
procEmi=#procEmi#
verProc=#verProc#
dhCont=#dhCont#
xJust=#xJust#
]
//
//<cUF>43</cUF>
//<cMunFG>4313409</cMunFG>
//<cDV>5</cDV>
//<tpAmb>2</tpAmb>

s_cNF is string="15516" // cNF
s_natOp is string="5.101 Venda de producao do estabelecimento" // natOp
s_indPag is string="1" // indPag
s_mod is string="55" // mod
s_serie is string="1" // serie
s_nNF is string="3879" // nNF
s_dhEmi is string="29/11/2017 06:05:00" // dhEmi
s_dhSaiEnt is string=""
s_tpNF is string="1" // tpNF
s_idDest is string="1" // idDest
s_tpImp is string="1" // tpImp
s_tpEmis is string="1" // tpEmis
s_finNFe is string="1" // finNFe
s_indFinal is string="0" // indFinal
s_indPres is string="1" // indPres
s_procEmi is string="0" // procEmi
s_verProc is string="3.1.0" // verProc
s_dhCont is string=""
s_xJust is string=""

s_nfe_xml=Replace(s_nfe_xml,"#cNF#",s_cNF)
s_nfe_xml=Replace(s_nfe_xml,"#natOp#",s_natOp)
s_nfe_xml=Replace(s_nfe_xml,"#indPag#",s_indPag)
s_nfe_xml=Replace(s_nfe_xml,"#mod#",s_mod)
s_nfe_xml=Replace(s_nfe_xml,"#serie#",s_serie)
s_nfe_xml=Replace(s_nfe_xml,"#nNF#",s_nNF)
s_nfe_xml=Replace(s_nfe_xml,"#dhEmi#",s_dhEmi)
s_nfe_xml=Replace(s_nfe_xml,"#dhSaiEnt#",s_dhSaiEnt)

s_nfe_xml=Replace(s_nfe_xml,"#tpNF#",s_tpNF)
s_nfe_xml=Replace(s_nfe_xml,"#idDest#",s_idDest)
s_nfe_xml=Replace(s_nfe_xml,"#tpImp#",s_tpImp)
s_nfe_xml=Replace(s_nfe_xml,"#tpEmis#",s_tpEmis)
s_nfe_xml=Replace(s_nfe_xml,"#finNFe#",s_finNFe)
s_nfe_xml=Replace(s_nfe_xml,"#indFinal#",s_indFinal)
s_nfe_xml=Replace(s_nfe_xml,"#indPres#",s_indPres)
s_nfe_xml=Replace(s_nfe_xml,"#procEmi#",s_procEmi)
s_nfe_xml=Replace(s_nfe_xml,"#verProc#",s_verProc)
s_nfe_xml=Replace(s_nfe_xml,"#dhCont#",s_dhCont)
s_nfe_xml=Replace(s_nfe_xml,"#xJust#",s_xJust)

RESULT s_nfe_xml

PROCEDURE _030_010_NFRefXXX()

s_nfe_xml is string=[
[NFRef#NFRef_XXX#]
Tipo=#Tipo#
refNFe=#refNFe#
cUF=#cUF#
AAMM=#AAMM#
CNPJ=#CNPJ#
mod=#mod#
Serie=#Serie#
nNF=#nNF#
CNPJCPF=#CNPJCPF#
IE=#IE#
refCTe=#refCTe#
ModECF=#ModECF#
nECF=#nECF#
nCOO=#nCOO#

]

b_tem_nref is boolean=False
IF b_tem_nref=True THEN
s_NFRef_XXX is string="1"
s_Tipo is string=""
s_refNFe is string=""
s_cUF is string=""
s_AAMM is string=""
s_CNPJ is string=""
s_mod is string=""
s_Serie is string=""
s_nNF is string=""
s_CNPJCPF is string=""
s_IE is string=""
s_refCTe is string=""
s_ModECF is string=""
s_nECF is string=""
s_nCOO is string=""

s_nfe_xml=Replace(s_nfe_xml,"#NFRef_XXX#",s_NFRef_XXX)
s_nfe_xml=Replace(s_nfe_xml,"#Tipo#",s_Tipo)
s_nfe_xml=Replace(s_nfe_xml,"#refNFe#",s_refNFe)
s_nfe_xml=Replace(s_nfe_xml,"#cUF#",s_cUF)
s_nfe_xml=Replace(s_nfe_xml,"#AAMM#",s_AAMM)
s_nfe_xml=Replace(s_nfe_xml,"#CNPJ#",s_CNPJ)
s_nfe_xml=Replace(s_nfe_xml,"#mod#",s_mod)
s_nfe_xml=Replace(s_nfe_xml,"#Serie#",s_Serie)
s_nfe_xml=Replace(s_nfe_xml,"#nNF#",s_nNF)
s_nfe_xml=Replace(s_nfe_xml,"#CNPJCPF#",s_CNPJCPF)
s_nfe_xml=Replace(s_nfe_xml,"#IE#",s_IE)
s_nfe_xml=Replace(s_nfe_xml,"#refCTe#",s_refCTe)
s_nfe_xml=Replace(s_nfe_xml,"#ModECF#",s_ModECF)
s_nfe_xml=Replace(s_nfe_xml,"#nECF#",s_nECF)
s_nfe_xml=Replace(s_nfe_xml,"#nCOO#",s_nCOO)
ELSE
s_nfe_xml=""
END

RESULT s_nfe_xml

PROCEDURE _500_010_envia_xml()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)

EDT_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_XML,EDT_diretorio_arquivo_saida)

PROCEDURE _003_010_ZERA_CAMPOS()

_TOTAIS_vBC=0
_TOTAIS_vICMS=0
_TOTAIS_vICMSDeson=0
_TOTAIS_vBCST=0
_TOTAIS_vST=0
_TOTAIS_vProd=0
_TOTAIS_vFrete=0
_TOTAIS_vSeg=0
_TOTAIS_vDesc=0
_TOTAIS_vII=0
_TOTAIS_vIPI=0
_TOTAIS_vPIS=0
_TOTAIS_vCOFINS=0
_TOTAIS_vOutro=0
_TOTAIS_vNF=0
_TOTAIS_vTotTrib=0
_TOTAIS_vFCP=0
_TOTAIS_vFCPST=0
_TOTAIS_vFCPSTRet=0
_TOTAIS_vIPIDevol=0
//VARIAVEIS DE TOTAIS

//VARIAVEIS TOTAIS ISSQN
_ISSQNtot_vServ=0
_ISSQNtot_vBC=0
_ISSQNtot_vISS=0
_ISSQNtot_vPIS=0
_ISSQNtot_vCOFINS=0
_ISSQNtot_dCompet=""
_ISSQNtot_vDeducao=0
_ISSQNtot_vOutro=0
_ISSQNtot_vDescIncond=0
_ISSQNtot_vDescCond=0
_ISSQNtot_vISSRet=0
_ISSQNtot_cRegTrib=""
//VARIAVEIS TOTAIS ISSQN

Páginas

segunda-feira, 4 de dezembro de 2017

AULA 1301 WINDEV ACBR 011 - NFE.CRIARNFE 2a PARTE

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

Nenhum comentário:

Postar um comentário