terça-feira, 5 de dezembro de 2017

AULA 1302 WINDEV ACBR - 012 - NFE.CriarNFe 3A PARTE AJUSTE CODIGO











VIDEO NFE CRIAR NFE ACBR COM WINDEV




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
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 
CNPJ CERTIFICADO ACBR 021 AULA 1314
NFE.SetCertificado WINDEV ACBR 022 - AULA 1315 
CRIAR CTE - WINDEV ACBR 023 AULA 1316 PARTE 1
CRIAR CTE - WINDEV ACBR 024 AULA 1318
CRIAR CTE IDE - WINDEV ACBR 025 AULA 1320
CRIAR CTE infCte - WINDEV ACBR 026 - AULA 1327
CRIAR CTE - COMPL - WINDEV ACBR 027 AULA 1336
CRIAR CTE - EMITENTE - WINDEV ACBR 028 AULA 1337
CRIAR CTE - REMETENTE - WINDEV ACBR 029 AULA 1338
CRIAR CTE - LOCCOLETA/INFNF/ WINDEV ACBR 030 AULA 1347 
CRIAR CTE - DEST E VPREST - WINDEV ACBR 031 AULA 1348
CRIAR CTE - ICMSSN,TRIB,CARGA,INFQ WINDEV ACBR 032 AULA 1349
CRIAR CTE - RODO INFSERVICO INFDOC WINDEV ACBR 033 AULA 1350
CRIAR CTE - SEGURO,RODOOS WINDEV ACBR 034 AULA 1351
CRIAR CTE - VEIC,OCC, WINDEV ACBR 035 - 1352
NFE - DICAS 1667 - PRIVADO - VIDEO - ACBR 036 - NFE REVISAO
CTE - DICAS 1687 - PRIVADO - WINDEV ACBR 037 - CTE 13 - CONTINUAR PROJETO
CTE - DICAS 1688 - PRIVADO - WINDEV ACBR 038 - CTE 14 - CTE.CriarCTe
CTE - DICAS 1689 - PRIVADO - WINDEV ACBR 039 - CTE 15 - CORRIGINDO ERROS CTE
CTE - DICAS 1690 - PRIVADO - WINDEV ACBR 040 - CTE 15 - CRIA CTE E BUSCA RETORNO
CTE - DICAS 1692 - PUBLICA - WINDEV ACBR 041 - CTE 16 - CTE.CRIARENVIARCTE PARTE 1/..
CTE - DICAS 1694 - PRIVADA - WINDEV ACBR 042 - CTE 17 - CTE.CRIARENVIARCTE PARTE 2/...
CTE - DICAS 1696 - PRIVADA - WINDEV ACBR 044 - CTE 18 - CTE.CRIARENVIARCTE PARTE 3/...
CTE - DICAS 1698 - PRIVADA - WINDEV ACBR 044 - CTE 19 - CTE.CRIARENVIARCTE PARTE 4/ VENDO ERROS
CTE DICAS 1699 - PUBLICA - WINDEV ACBR 045 - CTE 20 - GRAVANDO CTE AUTORIZADO
BOLETO - DICAS 1700 - PUBLICA - WINDEV acbr boleto 1/ - BOLETO INICIO/1..
BOLETO - DICAS 1701 - PUBLICA - WINDEV acbr boleto 2/ - CRIANDO COMPONENTE
BOLETO - DICAS 1702 - PRIVADA - WINDEV acbr boleto 3/ - CRIANDO VERIFICA
BOLETO - DICAS 1703 - PRIVADA- WINDEV acbr boleto 4/ - ACBR ConfigurarDados
BOLETO - DICAS 1704 - PRIVADA- WINDEV acbr boleto 5/ - ConfigurarDados/2
MANIFESTACAO - DICAS 1705 - PRIVADA- WINDEV acbr Manifestacao 1/ - Manifestacao Notas 1
BOLETO - DICAS 1706 - PRIVADA- WINDEV acbr boleto 6/ - ConfigurarDados/3
BOLETO - DICAS 1707 - PRIVADA - WINDEV acbr boleto 7/ - LIMPA
BOLETO - DICAS 1708 - PUBLICA- WINDEV acbr boleto 8/ - BOLETO.TamNossoNumero
BOLETO - DICAS 1709 - PRIVADA - WINDEV acbr boleto 9/ - BOLETOIncluirTitulos parte 1
BOLETO - DICAS 1712 - PRIVADA - WINDEV acbr boleto 11/ - BOLETOImprimir
BOLETO - DICAS 1713 - PRIVADA - WINDEV acbr boleto 12/ - BOLETOGerarRemessa
BOLETO - DICAS 1714 - PUBLICA - WINDEV acbr boleto 13/ - BOLETOTotalTitulosLista
BOLETO - DICAS 1715 - publica - WINDEV acbr boleto 14/ - BOLETO.ListaBancos
BOLETO - ICAS 1716 - privada - WINDEV acbr boleto 15/ - BOLETO.ListaCaractTitulo
BOLETO - DICAS 1718 - PUBLICA - WINDEV acbr boleto 16/ - BOLETOListaOcorrencias


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


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





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#
#Itens_produtos#
#Total#
#ISSQNtot#
#retTrib#
#Transportador#
#ReboqueXXX#
#VolumeXXX#
#LacreXXXYYY#
#Fatura#
#DuplicataXXX#
#PAG_XXX#
#DadosAdicionais#
#InfAdicXXX#
#ObsFiscoXXX#
#procRefXXX#
#Exporta#
#Compra#
#cana#
#forDia_XXX#
#deduc_XXX#
)
]





s_xml_iten=_085_010_AUTXML()
s_xml=Replace(s_xml,"#autXMLXXX#",s_xml_iten)


s_xml_iten=_087_010_itens_produtos()
s_xml=Replace(s_xml,"#Itens_produtos#",s_xml_iten)


s_xml_iten=_280_010_Total()
s_xml=Replace(s_xml,"#Total#",s_xml_iten)




PROCEDURE _087_010_itens_produtos()
gn_sequencia_produto=0
s_nfe_xml is string=""
QRY_ITENS_LER.ParamId_nota_fiscal=nota_fiscal.id_nota_fiscal
HExecuteQuery(QRY_ITENS_LER,hQueryDefault)
s_ProdutoXXX is string=""
FOR EACH QRY_ITENS_LER
HReadSeekFirst(nota_fiscal_iten,id_nota_fiscal_iten,QRY_ITENS_LER.id_nota_fiscal_iten)
HReadSeekFirst(material,id_material,QRY_ITENS_LER.id_material)

s_xml_iten is string=""
s_xml is string=[
#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#
]

gn_sequencia_produto++

s_xml=Replace(s_xml,"#ProdutoXXX#",_090_010_ProdutoXXX_())

s_xml_iten=_095_010_NVEXXXYYY()
s_xml=Replace(s_xml,"#NVEXXXYYY#",s_xml_iten)

s_xml_iten=_100_010_DIXXXYYY()
s_xml=Replace(s_xml,"#DIXXXYYY#",s_xml_iten)

s_xml_iten=_110_010_LADIXXXYYYKKK()
s_xml=Replace(s_xml,"#LADIXXXYYYKKK#",s_xml_iten)




PROCEDURE _090_010_ProdutoXXX_()

s_nfe_xml is string=[
[Produto#Produto_XXX#]
cProd=#cProd#
cEAN=#cEAN#
xProd=#xProd#
ncm=#ncm#
CEST=#CEST#
EXTIPI=#EXTIPI#
CFOP=#CFOP#
uCom=#uCom#
qCom=#qCom#
vUnCom=#vUnCom#
vProd=#vProd#
cEANTrib=#cEANTrib#
uTrib=#uTrib#
qTrib=#qTrib#
vUnTrib=#vUnTrib#
vFrete=#vFrete#
    vSeg=#vSeg#
    vDesc=#vDesc#
    vOutro=#vOutro#
    indTot=#indTot#
    xPed=#xPed#
    nItemPed=#nItemPed#
    nFCI=#nFCI#
    nRECOPI=#nRECOPI#
    pDevol=#pDevol#
    vIPIDevol=#vIPIDevol#
    vTotTrib=#vTotTrib#
    infAdProd=#infAdProd#
    indEscala=#indEscala#
    CNPJFab=#CNPJFab#
    cBenef=#cBenef#
]
//         <CEST>1708400</CEST>
// FALTOU
_Produto_XXX is string=NumToString(gn_sequencia_produto,"03D") // "001"
// codigo produto
_cProd is string=""
IF Nfe_empresa_parametro_nfe_xml_referencia=True THEN // Se deseja por Referencia
IF nota_fiscal_iten.referencia_material="" THEN
_cProd=nota_fiscal_iten.codigo_produto_cProd
ELSE
_cProd=nota_fiscal_iten.referencia_material
END
ELSE
_cProd=nota_fiscal_iten.codigo_produto_cProd
END






QUER TER OS CODIGOS PARA AJUDAR, ENTRE NO GRUPO PRIVADO, ABAIXO, QUE PARA O GRUPO É DISPONIBILIZADO



Seja bem vindo ao grupo Amarildo Windev , mantido pelo Amarildo Matos - Mestre Jedi 


1) Politica do Grupo
2) Fontes Exemplos / ErpAmarildo / no tortoise
3) Beneficios de estar no Grupo
4) Consultoria - Preços
5) Assuntos dentro do Grupo
6) Assuntos Desenvolvimento
7) Como se Inscrever
8) 8) Valor Trimestral: 90,00
9) Formas de Pagamento
10)Dados Para Pagamento
-------------------------------------------------------------------------------------------------------------------
1) Politica do Grupo
Os Videos Desse Grupo, não pode ser repassados.
Caso acontecer isso, será excluido do Grupo.
-------------------------------------------------------------------------------------------------------------------
2) Fontes Exemplos / ErpAmarildo / no tortoise
Será liberado via tortoise, 
Exemplos Feitos no ErpAmarildo
e Tambem um App com dicas novas
-------------------------------------------------------------------------------------------------------------------
3) Beneficios de estar no Grupo
Poder acompanhar em formas de aula, meu trabalho do dia 
a dia. com diversos Assuntos que vou comecar a Desenvolver.
Em Windev 
Em WebDev
Em WinDevMobile 
    Erp/Contabilidade/Motel/Hotel/
-------------------------------------------------------------------------------------------------------------------
4) Consultoria - Preços
Para quem for assinante do Grupo, tera um preço Diferenciado
em Consultorias
-------------------------------------------------------------------------------------------------------------------
5) Assuntos
Todas as mensagens devem tratar de assuntos ligados ao 
desenvolvimento com Windev, Windev Mobile e Webdev. 
Não serão permitidas mensagens de assuntos alheios ao objetivo 
deste grupo, especialmente as de cunho comercial. 
Os membros que desrespeitarem as normas acima poderão ser 
monitorados ou banidos do grupo. 
-------------------------------------------------------------------------------------------------------------------
6) Alguns Assuntos
- Praticamente meu desenvolvimento é Gravado
- Como Fazer WebService para Bloquear Clientes
     ( já utilizado para meu sistema ErpMatos)
- Api - Teconcenter Integracao - Jonilton (Deu Ideia)
- Pedrosao - Integracao do Componente do Pedrosao Com Sistema
     (Transmissoes Nfe/cte/Manifestacao)
- Acbr - Cassiano (Deu Ideia)
- Unimake (Já utilizo)
- Boletos
- Curso ErpAmarildo -
- Hyperfile,Postgres,SqlServer
--------------------
7) Como se Inscrever
Entre no Grupo: 
(
https://groups.google.com/forum/#!forum/amarildowindev
)
e Peça para entrare em contato com o proprietario, 
ou Peça pelo skype 
amarildo.matos.informatica
para se inscrever
-------------------------------------------------------------------------------------------------------------------
8) Valor Trimestral: 90,00
-------------------------------------------------------------------------------------------------------------------
9) Forma de Pagamento
    entre no Skype amarildo.matos.informatica, e peca a forma de pagamento
    Deposito Bancario / Transferencia
    ou se quizer Paypal ou pagseguro entre no link Abaixo

-------------------------------------------------------------------------------------------------------------------
10 Dados Pagamento

para Pagamento 
BANCO SICREDI
TIPO        : CONTA-CORRENTE
BANCO    : 748
AGENCIA : 0101
CONTA     : 15709-7
NOME      : AMARILDO DE MATOS
CPF          : 380.215.280.87

-------------------------------------------------------------------------------------------------------------------

Amarildo de Matos - Administrador do Grupo











segunda-feira, 4 de dezembro de 2017

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









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
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 
CNPJ CERTIFICADO ACBR 021 AULA 1314
NFE.SetCertificado WINDEV ACBR 022 - AULA 1315 
CRIAR CTE - WINDEV ACBR 023 AULA 1316 PARTE 1
CRIAR CTE - WINDEV ACBR 024 AULA 1318
CRIAR CTE IDE - WINDEV ACBR 025 AULA 1320
CRIAR CTE infCte - WINDEV ACBR 026 - AULA 1327
CRIAR CTE - COMPL - WINDEV ACBR 027 AULA 1336
CRIAR CTE - EMITENTE - WINDEV ACBR 028 AULA 1337
CRIAR CTE - REMETENTE - WINDEV ACBR 029 AULA 1338
CRIAR CTE - LOCCOLETA/INFNF/ WINDEV ACBR 030 AULA 1347 
CRIAR CTE - DEST E VPREST - WINDEV ACBR 031 AULA 1348
CRIAR CTE - ICMSSN,TRIB,CARGA,INFQ WINDEV ACBR 032 AULA 1349
CRIAR CTE - RODO INFSERVICO INFDOC WINDEV ACBR 033 AULA 1350
CRIAR CTE - SEGURO,RODOOS WINDEV ACBR 034 AULA 1351
CRIAR CTE - VEIC,OCC, WINDEV ACBR 035 - 1352
NFE - DICAS 1667 - PRIVADO - VIDEO - ACBR 036 - NFE REVISAO
CTE - DICAS 1687 - PRIVADO - WINDEV ACBR 037 - CTE 13 - CONTINUAR PROJETO
CTE - DICAS 1688 - PRIVADO - WINDEV ACBR 038 - CTE 14 - CTE.CriarCTe
CTE - DICAS 1689 - PRIVADO - WINDEV ACBR 039 - CTE 15 - CORRIGINDO ERROS CTE
CTE - DICAS 1690 - PRIVADO - WINDEV ACBR 040 - CTE 15 - CRIA CTE E BUSCA RETORNO
CTE - DICAS 1692 - PUBLICA - WINDEV ACBR 041 - CTE 16 - CTE.CRIARENVIARCTE PARTE 1/..
CTE - DICAS 1694 - PRIVADA - WINDEV ACBR 042 - CTE 17 - CTE.CRIARENVIARCTE PARTE 2/...
CTE - DICAS 1696 - PRIVADA - WINDEV ACBR 044 - CTE 18 - CTE.CRIARENVIARCTE PARTE 3/...
CTE - DICAS 1698 - PRIVADA - WINDEV ACBR 044 - CTE 19 - CTE.CRIARENVIARCTE PARTE 4/ VENDO ERROS
CTE DICAS 1699 - PUBLICA - WINDEV ACBR 045 - CTE 20 - GRAVANDO CTE AUTORIZADO
BOLETO - DICAS 1700 - PUBLICA - WINDEV acbr boleto 1/ - BOLETO INICIO/1..
BOLETO - DICAS 1701 - PUBLICA - WINDEV acbr boleto 2/ - CRIANDO COMPONENTE
BOLETO - DICAS 1702 - PRIVADA - WINDEV acbr boleto 3/ - CRIANDO VERIFICA
BOLETO - DICAS 1703 - PRIVADA- WINDEV acbr boleto 4/ - ACBR ConfigurarDados
BOLETO - DICAS 1704 - PRIVADA- WINDEV acbr boleto 5/ - ConfigurarDados/2
MANIFESTACAO - DICAS 1705 - PRIVADA- WINDEV acbr Manifestacao 1/ - Manifestacao Notas 1
BOLETO - DICAS 1706 - PRIVADA- WINDEV acbr boleto 6/ - ConfigurarDados/3
BOLETO - DICAS 1707 - PRIVADA - WINDEV acbr boleto 7/ - LIMPA
BOLETO - DICAS 1708 - PUBLICA- WINDEV acbr boleto 8/ - BOLETO.TamNossoNumero
BOLETO - DICAS 1709 - PRIVADA - WINDEV acbr boleto 9/ - BOLETOIncluirTitulos parte 1
BOLETO - DICAS 1712 - PRIVADA - WINDEV acbr boleto 11/ - BOLETOImprimir
BOLETO - DICAS 1713 - PRIVADA - WINDEV acbr boleto 12/ - BOLETOGerarRemessa
BOLETO - DICAS 1714 - PUBLICA - WINDEV acbr boleto 13/ - BOLETOTotalTitulosLista
BOLETO - DICAS 1715 - publica - WINDEV acbr boleto 14/ - BOLETO.ListaBancos
BOLETO - ICAS 1716 - privada - WINDEV acbr boleto 15/ - BOLETO.ListaCaractTitulo
BOLETO - DICAS 1718 - PUBLICA - WINDEV acbr boleto 16/ - BOLETOListaOcorrencias


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








// 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



























































sábado, 2 de dezembro de 2017

AULA 1300 WINDEV ACBR - 010 - NFE.CriarNFe 1A PARTE
















VIDEO ACBR NFE.CRIARNFE 1A PARTE








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
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 
CNPJ CERTIFICADO ACBR 021 AULA 1314
NFE.SetCertificado WINDEV ACBR 022 - AULA 1315 
CRIAR CTE - WINDEV ACBR 023 AULA 1316 PARTE 1
CRIAR CTE - WINDEV ACBR 024 AULA 1318
CRIAR CTE IDE - WINDEV ACBR 025 AULA 1320
CRIAR CTE infCte - WINDEV ACBR 026 - AULA 1327
CRIAR CTE - COMPL - WINDEV ACBR 027 AULA 1336
CRIAR CTE - EMITENTE - WINDEV ACBR 028 AULA 1337
CRIAR CTE - REMETENTE - WINDEV ACBR 029 AULA 1338
CRIAR CTE - LOCCOLETA/INFNF/ WINDEV ACBR 030 AULA 1347 
CRIAR CTE - DEST E VPREST - WINDEV ACBR 031 AULA 1348
CRIAR CTE - ICMSSN,TRIB,CARGA,INFQ WINDEV ACBR 032 AULA 1349
CRIAR CTE - RODO INFSERVICO INFDOC WINDEV ACBR 033 AULA 1350
CRIAR CTE - SEGURO,RODOOS WINDEV ACBR 034 AULA 1351
CRIAR CTE - VEIC,OCC, WINDEV ACBR 035 - 1352
NFE - DICAS 1667 - PRIVADO - VIDEO - ACBR 036 - NFE REVISAO
CTE - DICAS 1687 - PRIVADO - WINDEV ACBR 037 - CTE 13 - CONTINUAR PROJETO
CTE - DICAS 1688 - PRIVADO - WINDEV ACBR 038 - CTE 14 - CTE.CriarCTe
CTE - DICAS 1689 - PRIVADO - WINDEV ACBR 039 - CTE 15 - CORRIGINDO ERROS CTE
CTE - DICAS 1690 - PRIVADO - WINDEV ACBR 040 - CTE 15 - CRIA CTE E BUSCA RETORNO
CTE - DICAS 1692 - PUBLICA - WINDEV ACBR 041 - CTE 16 - CTE.CRIARENVIARCTE PARTE 1/..
CTE - DICAS 1694 - PRIVADA - WINDEV ACBR 042 - CTE 17 - CTE.CRIARENVIARCTE PARTE 2/...
CTE - DICAS 1696 - PRIVADA - WINDEV ACBR 044 - CTE 18 - CTE.CRIARENVIARCTE PARTE 3/...
CTE - DICAS 1698 - PRIVADA - WINDEV ACBR 044 - CTE 19 - CTE.CRIARENVIARCTE PARTE 4/ VENDO ERROS
CTE DICAS 1699 - PUBLICA - WINDEV ACBR 045 - CTE 20 - GRAVANDO CTE AUTORIZADO
BOLETO - DICAS 1700 - PUBLICA - WINDEV acbr boleto 1/ - BOLETO INICIO/1..
BOLETO - DICAS 1701 - PUBLICA - WINDEV acbr boleto 2/ - CRIANDO COMPONENTE
BOLETO - DICAS 1702 - PRIVADA - WINDEV acbr boleto 3/ - CRIANDO VERIFICA
BOLETO - DICAS 1703 - PRIVADA- WINDEV acbr boleto 4/ - ACBR ConfigurarDados
BOLETO - DICAS 1704 - PRIVADA- WINDEV acbr boleto 5/ - ConfigurarDados/2
MANIFESTACAO - DICAS 1705 - PRIVADA- WINDEV acbr Manifestacao 1/ - Manifestacao Notas 1
BOLETO - DICAS 1706 - PRIVADA- WINDEV acbr boleto 6/ - ConfigurarDados/3
BOLETO - DICAS 1707 - PRIVADA - WINDEV acbr boleto 7/ - LIMPA
BOLETO - DICAS 1708 - PUBLICA- WINDEV acbr boleto 8/ - BOLETO.TamNossoNumero
BOLETO - DICAS 1709 - PRIVADA - WINDEV acbr boleto 9/ - BOLETOIncluirTitulos parte 1
BOLETO - DICAS 1712 - PRIVADA - WINDEV acbr boleto 11/ - BOLETOImprimir
BOLETO - DICAS 1713 - PRIVADA - WINDEV acbr boleto 12/ - BOLETOGerarRemessa
BOLETO - DICAS 1714 - PUBLICA - WINDEV acbr boleto 13/ - BOLETOTotalTitulosLista
BOLETO - DICAS 1715 - publica - WINDEV acbr boleto 14/ - BOLETO.ListaBancos
BOLETO - ICAS 1716 - privada - WINDEV acbr boleto 15/ - BOLETO.ListaCaractTitulo
BOLETO - DICAS 1718 - PUBLICA - WINDEV acbr boleto 16/ - BOLETOListaOcorrencias


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







MODELO:

NFE.CriarNFe(
[infNFe]
versao=3.10
[Identificacao]
cNF=15516
natOp=5.101 Venda de producao do estabelecimento
indPag=1
mod=55
serie=1
nNF=3879
dhEmi=29/11/2017 06:05:00
dhSaiEnt=
tpNF=1
idDest=1
tpImp=1
tpEmis=1
finNFe=1
indFinal=0
indPres=1
procEmi=0
verProc=3.1.0
dhCont=
xJust=
[Emitente]
CNPJCPF=03850874000126
xNome=NH_MATOS INFORMATICA-SIMPLES
xFant=JAIRO B. RIBEIRO 03850874000126
IE=0860299430
IEST=
IM=1
CNAE=4789099
CRT=1
xLgr=RUA PINHEIRO MACHADO
nro=545
xCpl=
xBairro=INDUSTRIAL
cMun=4313409
xMun=NOVO HAMBURGO
UF=RS
CEP=93320490
cPais=1058
xPais=BRASIL
Fone=35821451
cUF=43
cMunFG=
[Destinatario]
idEstrangeiro=
CNPJCPF=89184238000128
xNome=NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL
indIEDest=1
IE=0420036873
ISUF=
email=matosi@terra.com.br
xLgr=RUA PRESIDENTE LUCENA
nro=4
xCpl=
xBairro=DAS ROSAS
cMun=4307609
xMun=ESTANCIA VELHA
UF=RS
cep=93600000
cPais=1058
xPais=BRASIL
Fone=5132111932
[Produto001]
cProd=1
cEAN=7898599090068
xProd=ALMOCO LIVRE
ncm=84425000
CEST=1708400
EXTIPI=
CFOP=5101
uCom=RL
qCom=1.0000
vUnCom=1.0000
vProd=1.0000
cEANTrib=
uTrib=RL
qTrib=1.00000000
vUnTrib=1.0000
vFrete=
   vSeg=
    vDesc=
    vOutro=
    indTot=1
    xPed=
    nItemPed=
    nFCI=
    nRECOPI=
    pDevol=
    vIPIDevol=
    vTotTrib=0.14
    infAdProd=
    indEscala=
    CNPJFab=
    cBenef=
[ICMS001]
orig=0
CST=
CSOSN=400
modBC=
pRedBC=
vBC=
pICMS=
vICMS=
modBCST=
pMVAST=
pRedBCST=
vBCST=
pICMSST=
vICMSST=
UFST=
pBCOp=
vBCSTRet=
vICMSSTRet=
motDesICMS=
pCredSN=
vCredICMSSN=
vBCSTDest=
vICMSSTDest=
vICMSDeson=
vICMSOp=
pDif=
vICMSDif=
pST=
vBCFCP=
pFCP=
vFCP=
vBCFCPST=
pFCPST=
vFCPST=
vBCFCPSTRet=
pFCPSTRet=
vFCPSTRet=
[PIS001]
CST=01
vBC=1.00
pPIS=0.65
qBCProd=
vAliqProd=
vPIS=0.01
[COFINS001]
CST=01
vBC=1.00
pCOFINS=2.00
qBCProd=
vAliqProd=
vCOFINS=0.02
[Total]
vBC=0
vICMS=0
vICMSDeson=0
vBCST=0
vST=0
vProd=1
vFrete=0
vSeg=0
vDesc=0
vII=0
vIPI=0
vPIS=0
vCOFINS=0
vOutro=0
vNF=1
vTotTrib=0
vFCP=0
vFCPST=0
vFCPSTRet=0
vIPIDevol=0
[DadosAdicionais]
infAdFisco=
infCpl=DOCUMENTO ICM CODIGO 1 - empresa SIMPLES NACIONA


)









































































Teste

Teste
teste