Windev21 Aulas,Estudos e Desenvolvimento: 12/19/17

terça-feira, 19 de dezembro de 2017

AULA 1310 WINDEV ACBR - 018 - NFE.InutilizarNFe

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

PROCEDURE _000_00_INUTILIZAR_ACBR_UNINFE()

s_retorno is string=verificar_notas_antes_inutilizar()
IF s_retorno="" THEN
HReadSeekFirst(parametros,codigo_parametro,1)
IF parametros.acbr_nfe=True THEN
_300_inutilizar_acbr()
ELSE
_000_inutilizar_inicio()
END
ELSE
Info("Verificar os Numero de Inutilização"+CR+s_retorno)
EDT_LOC_NumeroInicial=""
EDT_LOC_NumeroFinal=""
ReturnToCapture(EDT_LOC_NumeroInicial)
END

PROCEDURE _300_inutilizar_acbr()

IF YesNo("Deseja Realmente Inutilizar ?") THEN
_310_020_configuracao_acbr()
_350_001_gerar_txt_acbr()

IF EDT_xml_retorno<>"" THEN
_400_01_retorno_txt_Acbr()
ELSE
EDT_Auditoria+="Cancelamento Nao Foi Feito Verificar"
Info("NAO FEZ CANCELAMENTO")
END
END

PROCEDURE _310_020_configuracao_acbr()

EDT_Auditoria=""
EDT_Diretorio="C:\amarildo\jairo\xml_acbr\PASTA\"
EDT_arquivo_entrada="ent.txt"
EDT_arquivo_saida="sai.txt"
EDT_diretorio_arquivo_entrada=EDT_Diretorio+EDT_arquivo_entrada
EDT_diretorio_arquivo_saida=EDT_Diretorio+EDT_arquivo_saida
// aula
_data is Date=nota_fiscal.data_emissao
_ano_mes is string=_data..Year+NumToString(_data..Month,"02d")
EDT_localizacao_diretorio_xml="C:\amarildo\jairo\xml_acbr\ARQS\"+empresa.cnpj+"\NFe\"+_ano_mes+"\Evento\Inutilizacao\"
EDT_xml_arquivo_assinado=""
EDT_diretorio_arquivo_xml_assinado=""

PROCEDURE _350_001_gerar_txt_acbr()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFE.InutilizarNFe("#cCNPJ#","#cJustificativa#",#nAno#,#nModelo#,#nSerie#,#nNumInicial#,#nNumFinal#)
]
_arquivo_acbr=Replace(_arquivo_acbr,"#cCNPJ#",empresa.cnpj)
_arquivo_acbr=Replace(_arquivo_acbr,"#cJustificativa#",EDT_Justificativa)
_arquivo_acbr=Replace(_arquivo_acbr,"#nAno#",EDT_LOC_ANO)
_arquivo_acbr=Replace(_arquivo_acbr,"#nModelo#",EDT_Modelo)
_arquivo_acbr=Replace(_arquivo_acbr,"#nSerie#",EDT_Serie)
_arquivo_acbr=Replace(_arquivo_acbr,"#nNumInicial#",EDT_LOC_NumeroInicial)
_arquivo_acbr=Replace(_arquivo_acbr,"#nNumFinal#",EDT_LOC_NumeroFinal)

EDT_xml=_arquivo_acbr
EDT_Auditoria+=_arquivo_acbr

EDT_xml_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml,EDT_diretorio_arquivo_saida)

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

//NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal)
//cCNPJ - CNPJ do contribuinte
//cJustificativa - Justificativa para inutilização
//nAno - Ano que foi inutilizado a numeração
//nModelo - Modelo da Nota Fiscal
//nSerie - Série da Nota Fiscal
//nNumInicial - Número Inicial a ser inutilizado
//nNumFinal - Número Final a ser inutilizado
//
//NFE.INUTILIZARNFE( "XXXXXXXXXXXXX", "Teste de inutilizacao", 08, 55, 1, 1, 4)

PROCEDURE _400_01_retorno_txt_Acbr()

EDT_xml_Autorizado=""

FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED BY ["XML="]

EDT_xml_Autorizado=s_linha

END

EDT_autorizado_dhRecbto=""

EDT_autorizado_nProt=""

EDT_autorizado_tpAmb=""

EDT_autorizado_xMotivo=""

EDT_autorizado_cUF=""

FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED BY CR

IF s_linha[[1 TO 6]]="CStat=" THEN