Windev21 Aulas,Estudos e Desenvolvimento

sexta-feira, 22 de dezembro de 2017

Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...
ControleCreate - Criar bloco Notas - Notes - WinDev - Dicas - 017/...
Alt - Static - Apertando Alt em Cima Static - Altera borda - Windev - Dicas 018/...
Guardar Valor - WinDev - Dicas 019/...
Pegar Quantidade/Valor/Codigo Cupom - WinDev - Dicas- 020
Consultar Alterar cliente e Procurar - WinDev - Dicas - 021 Código - Consultar alterar Cliente e Procurar - WinDev dicas - 022
Grupos - Colocar Grupo e Deixar visivel ou Não - WinDev Dicas 023
Historio Erp 1/... - Analise- Segurança - WinDev Dicas 024
Historio Erp 2/... - Telas Iniciais - WinDev Dicas 025
Historio Erp 3/... - Analise- Alterações - WinDev Dicas 026
Historico Erp 4/Final - Empresa - Gravar Historioco - WinDev Dicas 027
Estilo Mudar Quando Chegar F2 - WinDev Dicas 028
Ajuda - Como Fazer String - WinDev Dicas 029 - Aula 1134
Cor do Campo - Quando Der Foco - Dicas 030 - Aula 1135
Tab trocar por enter - Dicas 031/... - Aula 1136
Save As - Copiar Windows Reports Dicas 032/... Aula 1161
EXE E WDL, NUM MESMO PROJETO - DICAS 033 / AULA 1183
InfoWithTimeout - DICAS 034 / AULA 1186
PLANOS - TREINAMENTO - DICAS 035 / AULA 1220
FONTES - ALTERAR EDT / STC -> DICAS 036 / AULA 1221
HINT - TEXTO EDIÇÃO QUANDO VAZIO - DICAS 037
F2 E CTRL F2 - DICAS 038 - AULA 1239
COMO NAO TRANCAR BANCOS GAS TECN - DICAS 039 AULA 1241

FAZER TABELA DE AJUDA - DICAS 040 AULA 1242
ELIMINAR ERROS WINDEV DICAS 041 AULA 1243
CNPJ VALIDO - DICAS 042 AULA 1251

TAB ESCONDER OU MOSTRAR - DICAS 043 AULA 1271
CEP - CONFIGURAR 90000-000 DICAS 044 AULA 1283
BACKUP E RESTORE DE PROJETO - DICAS 045 AULA 1286

ON - OFF - BOTAO - WINDEV - DICAS 046 - AULA 1290

DEBUG EXE - WINDEV DICAS 047 AULA 1305
LER INI/TXT INIREAD DICAS 048 AULA 1312

EDT_Xml_retorno_autorizado=INIRead("EVENTO001","XML","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_cStat=INIRead("EVENTO001","cStat","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_nProt=INIRead("EVENTO001","nProt","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_dhRegEvento=INIRead("EVENTO001","dhRegEvento","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_tpAmb=INIRead("EVENTO001","tpAmb","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_xMotivo=INIRead("EVENTO001","xMotivo","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_chNFe=INIRead("EVENTO001","chNFe","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_cOrgao=INIRead("EVENTO001","cOrgao","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_verAplic=INIRead("EVENTO001","verAplic","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_tpEvento=INIRead("EVENTO001","tpEvento","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_nSeqEvento=INIRead("EVENTO001","nSeqEvento","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_CNPJDest=INIRead("EVENTO001","CNPJDest","",EDT_localizacao_arquivo_retorno_carta)
EDT_Retorno_emailDest=INIRead("EVENTO001","emailDest","",EDT_localizacao_arquivo_retorno_carta)
EDT_sequencia_carta_correcao=EDT_Retorno_nSeqEvento
EDT_Retorno_cStat_ret=EDT_Retorno_cStat
EDT_Retorno_xMotivo_ret=EDT_Retorno_xMotivo

OK:
idLote=0
tpAmb=2
verAplic=RS201710241716
cOrgao=43
cStat=128
xMotivo=Lote de Evento Processado

[EVENTO001]
id=
tpAmb=2
verAplic=RS201710241716
cOrgao=43
cStat=135
xMotivo=Evento registrado e vinculado a NF-e
chNFe=43171203850874000126550010000039161000039164
tpEvento=110110
xEvento=
nSeqEvento=2
CNPJDest=00397887000101
emailDest=
dhRegEvento=22/12/2017 08:32:41
nProt=143170001530202
Arquivo=C:\amarildo\jairo\xml_acbr\Arqs\03850874000126\NFe\201712\Evento\CCe\1101104317120385087400012655001000003916100003916402-procEventoNFe.xml

quinta-feira, 21 de dezembro de 2017

AULA 1311 WINDEV ACBR - 019 - NFe.EnviarEvento - Carta de Correção

VIDEO SOBRE CARTA CORRECAO ACBR WINDEV

VIDEOS AO VIVO ANTES DE FAZER A AULA DA CARTA DE CORREÇÃO
NAO ESQUEÇA DO JOINHA

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

Exemplo:

NFe.EnviarEvento(
[EVENTO]
idLote=
[EVENTO001]
chNFe=43171203850874000126550010000039201000039205
cOrgao=43
CNPJ=03850874000126
dhEvento=20/12/2017 21:39:00
tpEvento=110110
nSeqEvento=1
versaoEvento=3.10
descEvento=Carta de Correcao
xCorrecao=teste de CARTA de CORRECAO matos informatica
)

PROCEDURE _000_000_015_acbr_uninfe()

HReadSeekFirst(parametros,codigo_parametro,1)
IF parametros.acbr_nfe=True THEN
_100_010_INICIO_CORRECAO_ACBR()
ELSE
_000_000_Inicio_Carta_Correcao()
END

PROCEDURE _350_001_gerar_txt_acbr()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFe.EnviarEvento(
[EVENTO]
idLote=
[EVENTO001]
chNFe=#chNFe#
cOrgao=#cOrgao#
CNPJ=#CNPJ#
dhEvento=#dhEvento#
tpEvento=#tpEvento#
nSeqEvento=#nSeqEvento#
versaoEvento=3.10
descEvento=Carta de Correcao
xCorrecao=#xCorrecao#
)
]

d_data_hoje is Date=DateSys()
t_hora_hoje is Time=TimeSys()
EDT_dhEvento=NumToString(d_data_hoje..Day,"02d")+"/"
EDT_dhEvento+=NumToString(d_data_hoje..Month,"02d")+"/"
EDT_dhEvento+=NumToString(d_data_hoje..Year,"04d")+" "
EDT_dhEvento+=NumToString(t_hora_hoje..Hour,"02d")+":"
EDT_dhEvento+=NumToString(t_hora_hoje..Minute,"02d")+":"
EDT_dhEvento+=NumToString(t_hora_hoje..Second,"02d")

_arquivo_acbr=Replace(_arquivo_acbr,"#chNFe#",EDT_ChaveNFE)
_arquivo_acbr=Replace(_arquivo_acbr,"#cOrgao#",EDT_orgao)
_arquivo_acbr=Replace(_arquivo_acbr,"#CNPJ#",EDT_cnpj_empresa)
_arquivo_acbr=Replace(_arquivo_acbr,"#dhEvento#",EDT_dhEvento)
_arquivo_acbr=Replace(_arquivo_acbr,"#tpEvento#",EDT_tpEvento)
_arquivo_acbr=Replace(_arquivo_acbr,"#nSeqEvento#",EDT_SEQUENCIA)
_arquivo_acbr=Replace(_arquivo_acbr,"#xCorrecao#",EDT_xCorrecao)

// Txt Enviado = EDT_xml_criado
EDT_xml_criado=_arquivo_acbr
EDT_Auditoria+=_arquivo_acbr
//Sai Txt - EDT_xml_retorno
EDT_xml_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml_criado,EDT_diretorio_arquivo_saida)

PROCEDURE _400_01_retorno_txt_Acbr()
_cabecalho_xml is string=[
<?xml version="1.0" encoding="UTF-8"?>
]
EDT_Xml_retorno_autorizado=""
FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED BY ["XML="]
EDT_Xml_retorno_autorizado=s_linha
END
EDT_Xml_retorno_autorizado=_cabecalho_xml+Replace(EDT_Xml_retorno_autorizado,"XML=","")
EDT_Retorno_cStat=""
EDT_Retorno_nProt=""
EDT_Retorno_dhRegEvento=""
EDT_Retorno_tpAmb=""
EDT_Retorno_xMotivo=""
EDT_Retorno_chNFe=""
EDT_Retorno_cOrgao=""
EDT_Retorno_verAplic=""
EDT_Retorno_tpEvento=""
EDT_Retorno_CNPJDest=""
EDT_Retorno_emailDest=""
EDT_sequencia_carta_correcao=""
EDT_Retorno_nSeqEvento=""

b_COMECA_AQUI is boolean=False

FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED BY CR
IF s_linha[[1 TO 11]]="[EVENTO001]" THEN
b_COMECA_AQUI=True
Info("CHEGOU EVENTO")
END
IF b_COMECA_AQUI=True THEN
IF s_linha[[1 TO 6]]="cStat=" THEN
EDT_Retorno_cStat=Replace(s_linha,"cStat=","")
END
IF s_linha[[1 TO 6]]="nProt=" THEN
EDT_Retorno_nProt=Replace(s_linha,"nProt=","")
END
IF s_linha[[1 TO 12]]="dhRegEvento=" THEN
EDT_Retorno_dhRegEvento=Replace(s_linha,"dhRegEvento=","")
END
IF s_linha[[1 TO 6]]="tpAmb=" THEN
EDT_Retorno_tpAmb=Replace(s_linha,"tpAmb=","")
END
IF s_linha[[1 TO 8]]="xMotivo=" THEN
EDT_Retorno_xMotivo=Replace(s_linha,"xMotivo=","")
END
IF s_linha[[1 TO 6]]="chNFe=" THEN
EDT_Retorno_chNFe=Replace(s_linha,"chNFe=","")
END
IF s_linha[[1 TO 7]]="cOrgao=" THEN
EDT_Retorno_cOrgao=Replace(s_linha,"cOrgao=","")
END
IF s_linha[[1 TO 9]]="verAplic=" THEN
EDT_Retorno_verAplic=Replace(s_linha,"verAplic=","")
END
IF s_linha[[1 TO 9]]="tpEvento=" THEN
EDT_Retorno_tpEvento=Replace(s_linha,"tpEvento=","")
END
IF s_linha[[1 TO 11]]="nSeqEvento=" THEN
EDT_Retorno_nSeqEvento=Replace(s_linha,"nSeqEvento=","")
END
IF s_linha[[1 TO 8]]="CNPJDest=" THEN
EDT_Retorno_CNPJDest=Replace(s_linha,"CNPJDest=","")
END
IF s_linha[[1 TO 10]]="emailDest=" THEN
EDT_Retorno_emailDest=Replace(s_linha,"emailDest=","")
END

END
END

EDT_Retorno_cStat_ret=EDT_Retorno_cStat
EDT_Retorno_xMotivo_ret=EDT_Retorno_xMotivo
EDT_sequencia_carta_correcao=EDT_Retorno_nSeqEvento

terça-feira, 19 de dezembro de 2017

AULA 1310 WINDEV ACBR - 018 - NFE.InutilizarNFe

VIDEO AO VIVO INUTILIZACAO ANTES AULA

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

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

EDT_autorizado_cStat=s_linha

EDT_autorizado_cStat=Replace(EDT_autorizado_cStat,"CStat=","")

END

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

EDT_autorizado_nProt=s_linha[[7 TO 21]]

END

IF s_linha[[1 TO 9]]="DhRecbto=" THEN

EDT_autorizado_dhRecbto=s_linha[[10 TO 28]]

END

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

EDT_autorizado_tpAmb=s_linha[[7 TO 7]]

END

IF s_linha[[1 TO 8]]="XMotivo=" THEN

EDT_autorizado_xMotivo=s_linha

EDT_autorizado_xMotivo=Replace(EDT_autorizado_xMotivo,"XMotivo=","")

END

IF s_linha[[1 TO 4]]="CUF=" THEN

EDT_autorizado_cUF=s_linha[[5 TO 6]]

END

EDT_autorizado_ano=EDT_LOC_ANO

EDT_autorizado_nNFIni=EDT_LOC_NumeroInicial

EDT_autorizado_nNFFin=EDT_LOC_NumeroFinal

EDT_autorizado_CNPJ=empresa.cnpj

EDT_autorizado_mod=EDT_Modelo

EDT_autorizado_serie=EDT_Serie

IF EDT_autorizado_cStat="102" THEN

_060_Grava_Inutilizacao()

_070_Grava_notas()

_071_grava_conhecimento()

_200_imprime_inutilizacao("")

_210_Email_Inutilizacao()

_100_fecha()

END

segunda-feira, 18 de dezembro de 2017

AULA 1309 WINDEV ACBR - 017 - NFE.CancelarNFe

DESENVOLVIMENTO AO VIVO QUE ORIGINOU AULA WINDEV ACBR CANCEALMENTO

VIDEO WINDEV ACBR NFE.CANCELARNFE

CANCELAMENTO DESENVOLVIMENTO AO VIVO

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

ACBR SITE

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

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

PROCEDURE gera_000_00_cancelamento_Acbr()

IF YesNo("Deseja Realmente Cancelar a Nota Fiscal") THEN
gera_000_01_configura_Acbr()
gera_150_01_gerar_txt_acbr()
IF EDT_xml_retorno_assinado<>"" THEN
gera_160_01_retorno_txt_acbr()
gs_auditoria+="Cancelamento Deu Certo"
Info("Cancelamento Pronto - Vai Imprimir e Depois confira Site Sefaz")
ExecuteProcess(BTN_Imprimir_Cancelamento,trtClick)
ELSE
gs_auditoria+="Cancelamento Nao Foi Feito Verificar"
Info("NAO FEZ CANCELAMENTO")
END
END

PROCEDURE gera_150_01_gerar_txt_acbr()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFE.CANCELARNFE("#chave_cte#",#justificativa#,#cnpj_emissor#,#evento#)
]
_arquivo_acbr=Replace(_arquivo_acbr,"#chave_cte#",EDT_ChaveNFE)
_arquivo_acbr=Replace(_arquivo_acbr,"#justificativa#",EDT_Justificativa)
_arquivo_acbr=Replace(_arquivo_acbr,"#cnpj_emissor#",empresa.cnpj)
_arquivo_acbr=Replace(_arquivo_acbr,"#evento#",EDT_TipoEvento)
EDT_xml=_arquivo_acbr
gs_auditoria+=_arquivo_acbr
EDT_xml_retorno_assinado=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml,EDT_diretorio_arquivo_saida)

//http://acbr.sourceforge.net/ACBrMonitor/NFECancelarNFe.html
//NFe.CancelarNFe(cChaveNFe,cJustificativa,cCNPJ,nEvento)
//Parâmetros
//cChaveNFe - Chave da da NF-e.
//cJustificativa - Informe o Motivo do Cancelamento
//cCNPJ - CNPJ do Emissor
//nEvento - Numero do Evento (Obs.: Parâmetro opcional.)
//Exemplo:
//NFE.CANCELARNFE("35XXXXXXXXXXXXXXXX550010000000050000000058","Teste de Cancelamento","99999999000191")

PROCEDURE gera_160_01_retorno_txt_acbr()
s_texto_cstat is string=""
EDT_ProtocoloCancelamento=""
_sequencia is int=0
_tipo_evento is string=""

s_xml_retornado is string=""
EDT_xml_autorizado=""
_cabecalho_xml is string=[
<?xml version="1.0" encoding="UTF-8"?>
]

FOR EACH STRING s_linha OF EDT_xml_retorno_assinado SEPARATED BY ["XML="]
s_xml_retornado=s_linha
END
EDT_xml_autorizado=_cabecalho_xml+s_xml_retornado

FOR EACH STRING s_linha OF EDT_xml_retorno_assinado SEPARATED BY CR
IF s_linha[[1 TO 6]]="CStat=" THEN
s_texto_cstat=s_linha
END
IF s_linha[[1 TO 6]]="NProt=" THEN
EDT_ProtocoloCancelamento=s_linha[[7 TO 21]]
END
IF s_linha[[1 TO 11]]="nSeqEvento=" THEN
_sequencia=s_linha[[12 TO 13]]
END
IF s_linha[[1 TO 9]]="tpEvento=" THEN
_tipo_evento=s_linha[[10 TO 15]]
END
END
EDT_xml_autorizado=Replace(EDT_xml_autorizado,"XML=","")
IF s_texto_cstat="CStat=135" THEN
gera_200_01_grava_nota_xml()
END

PROCEDURE gera_200_01_grava_nota_xml()
IF EDT_xml<>"" THEN
nota_fiscal_xml.cancelamento_xml_enviado=EDT_xml
END
IF EDT_xml_retorno_assinado<>"" THEN
nota_fiscal_xml.cancelamento_xml_retorno_assinado=EDT_xml_retorno_assinado
END
IF EDT_xml_autorizado<>"" THEN
nota_fiscal_xml.cancelamento_xml_retorno_cancelamento=EDT_xml_autorizado
END
IF gs_auditoria<>"" THEN
nota_fiscal_xml.cancelamento_xml_enviado_assinado=gs_auditoria
ELSE
// ESSE SOMENTE UNINFE
IF EDT_xml_retorno_env<>"" THEN
nota_fiscal_xml.cancelamento_xml_enviado_assinado=EDT_xml_retorno_env
END
// ESSE SOMENTE UNINFE

END
HModify(nota_fiscal_xml)
IF EDT_ProtocoloCancelamento<>"" THEN
nota_fiscal.cancelamento_xml_protocolo=EDT_ProtocoloCancelamento
nota_fiscal.nfe_situacao_xml=2
HModify(nota_fiscal)
END

NFE.CANCELARNFE("43171203850874000126550010000038971000038977",TESTE DE CANCELAMENTO NOVO,03850874000126,110111)

OK: Lote de Evento Processado
[CANCELAMENTO]
Versao=RS201710241716
TpAmb=2
VerAplic=RS201710241716
CStat=135
XMotivo=Evento registrado e vinculado a NF-e
CUF=43
ChNFe=43171203850874000126550010000038971000038977
DhRecbto=17/12/2017 14:47:53
NProt=143170001511860
tpEvento=110111
xEvento=
nSeqEvento=1
CNPJDest=89184238000128
emailDest=
Arquivo=C:\amarildo\jairo\xml_acbr\Arqs\03850874000126\NFe\201712\Evento\Cancelamento\1101114317120385087400012655001000003897100003897701-procEventoNFe.xml
XML=<procEventoNFe ....

PROCEDURE VERIFICA_ARQUIVO_SAIDA(_diretorio_Arquivo_saida is string="")

IF fFileExist(_diretorio_Arquivo_saida) THEN
fDelete(_diretorio_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