quinta-feira, 30 de novembro de 2017

AULA 1299 WINDEV ACBR - 009 - NCM DESCRICAO











VIDEO YOUTUBE ACBR NCM




// CONSULTAR NCM
VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)

_arquivo_acbr is string=[
NCM.DescricaoNCM("#NCM#")
]

_arquivo_acbr=Replace(_arquivo_acbr,"#NCM#",EDT_NCM)
EDT_XML=_arquivo_acbr

EDT_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_XML,EDT_diretorio_arquivo_saida)
EDT_NCM_DESCRICAO=EDT_retorno


//http://acbr.sourceforge.net/ACBrMonitor/NCMDescricaoNCM.html
//NCM.DescricaoNCM
//Retorna a Descrição de um determinado NCM NCM.DescricaoNCM(cNCM)
//
//Parâmetros:
//cNCM - Código do NCM a ser consultado
//
//Exemplo de Resposta:
//NCM.DescricaoNCM("96131000")
//OK: OUTS.ISQUEIROS BOLSO GÁS Ñ RECARREGÁVEIS


=============================================================


PROCEDURE VERIFICA_ARQUIVO_SAIDA(s_ARQUIVO_SAIDA is string="")


IF fFileExist(s_ARQUIVO_SAIDA) THEN
fDelete(s_ARQUIVO_SAIDA)
END

=============================================================

PROCEDURE VERIFICA_ARQUIVO_RETORNO(s_DIRETORIO_ARQUIVO_ENTRADA is string="",s_XML is string="", ...
                                   s_DIRETORIO_ARQUIVO_SAIDA is string="")
                                 
s_RETORNO is string=""
fSaveText(s_DIRETORIO_ARQUIVO_ENTRADA,s_XML)
Message("AGUARDE...")
Wait(30)
Message()
s_RETORNO=""
b_existe is boolean=False
LOOP
IF fFileExist(s_DIRETORIO_ARQUIVO_SAIDA) THEN
b_existe=True
BREAK
END
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
BREAK
END
END
//Info("PARE")
IF b_existe=True THEN
Message(s_DIRETORIO_ARQUIVO_SAIDA)
s_RETORNO=fLoadText(s_DIRETORIO_ARQUIVO_SAIDA)
END

RESULT s_RETORNO





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








































quarta-feira, 29 de novembro de 2017

AULA 1298 WINDEV ACBR - 008 - AJUSTANDO PROCEDURES











VIDEO YOUTBE ACBR AJUSTANDO PROCEDURES 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




PROCEDURE VERIFICA_ARQUIVO_RETORNO(s_DIRETORIO_ARQUIVO_ENTRADA is string="",s_XML is string="", ...
                                   s_DIRETORIO_ARQUIVO_SAIDA is string="")
                                 
s_RETORNO is string=""
fSaveText(s_DIRETORIO_ARQUIVO_ENTRADA,s_XML)
Message("AGUARDE...")
Wait(30)
Message()
s_RETORNO=""
b_existe is boolean=False
LOOP
IF fFileExist(s_DIRETORIO_ARQUIVO_SAIDA) THEN
b_existe=True
BREAK
END
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
BREAK
END
END
//Info("PARE")
IF b_existe=True THEN
Message(s_DIRETORIO_ARQUIVO_SAIDA)
s_RETORNO=fLoadText(s_DIRETORIO_ARQUIVO_SAIDA)
END

RESULT s_RETORNO





PROCEDURE VERIFICA_ARQUIVO_SAIDA(s_ARQUIVO_SAIDA is string="")


IF fFileExist(s_ARQUIVO_SAIDA) THEN
fDelete(s_ARQUIVO_SAIDA)
END




// BOTAO STATUS SERVICO
// http://acbr.sourceforge.net/ACBrMonitor/NFEStatusServico.html
EDT_auditoria=""

EDT_XML="NFE.StatusServico()"

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)

EDT_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_XML,EDT_diretorio_arquivo_saida)



// BOTAO CONSULTA NFE // ELIMINANDO O ARQUIVO SAI.TXT


VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)

_arquivo_acbr is string=[
NFE.CONSULTARNFE("#cArqXML#")
]
_arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",EDT_xml_localizacao_arquivo)
EDT_XML=_arquivo_acbr

EDT_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_XML,EDT_diretorio_arquivo_saida)




























terça-feira, 28 de novembro de 2017

AULA 1297 WINDEV ACBR - 007 - CONSULTA CADASTRO CONTRIBUIENTE













VIDEO YOUTUBE ACBR WINDEV CONSULTA CADASTRO CONTRIBUIENTE




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




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




// ENTREI NO BOTAO CONSULTA CADASTRO CONTRIBUINTE
// ELIMINANDO O ARQUIVO SAI.TXT

IF fFileExist(EDT_diretorio_arquivo_saida) THEN
fDelete(EDT_diretorio_arquivo_saida)
END

_arquivo_acbr is string=[
NFe.ConsultaCadastro( "#ESTADO#", #CNPJ_CPF_INSCRICAOESTADUAL#  )
]

_arquivo_acbr=Replace(_arquivo_acbr,"#ESTADO#",EDT_ESTADO)
_arquivo_acbr=Replace(_arquivo_acbr,"#CNPJ_CPF_INSCRICAOESTADUAL#",EDT_CNPJ_CPF_INSCRICAO)
EDT_XML=_arquivo_acbr
fSaveText(EDT_diretorio_arquivo_entrada,EDT_XML)

// LENDO RETORNO
EDT_retorno=""
b_existe is boolean=False
LOOP
IF fFileExist(EDT_diretorio_arquivo_saida) THEN
b_existe=True
BREAK
END
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
BREAK
END
END
IF b_existe=True THEN
Message(EDT_diretorio_arquivo_saida)
EDT_retorno=fLoadText(EDT_diretorio_arquivo_saida)
END

//NFE.ConsultaCadastro
//Comando parar fazer consulta ao cadastro do contribuinte.
//
//NFe.ConsultaCadastro(cUF,nDocumento,[nIE])
//
//Parametros
//
//cUF - Sigla do estado do documento a ser consultado
//
//nDocumento - Número do documento a ser consultado
//
//nIE - parâmetro opcional e caso seja passado 1 irá consultar pelo documento Inscrição Estadual, caso contrário irá consultar pelo CPF ou CNPJ.
//
//Exemplo:
//
//NFe.ConsultaCadastro( "SP", 11111111111111  )





















































Teste

Teste
teste