|
Curso Acbr com Windev - Nfe/Nfce/Sat/Tef/muito mais.. |
Iniciado por amarildo, nov., 28 2017 5:45 PM - 15 respostas |
| |
| | | |
|
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em novembro, 28 2017 - 5:45 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em novembro, 29 2017 - 8:19 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em novembro, 30 2017 - 12:15 PM |
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
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
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
AULA 1299 WINDEV ACBR - 009 - NCM DESCRICAO
http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1299-windev-acbr-009-ncm-descricao.html |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 02 2017 - 10:55 AM |
AULA 1300 WINDEV ACBR 010 NFE CriarNFe
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1300-windev-acbr-010-nfecriarnfe.html
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
) |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 04 2017 - 8:50 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 05 2017 - 5:47 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 06 2017 - 9:48 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 07 2017 - 8:58 AM |
Procedure _510_010_ENVIAR_NFE() EDT_xml_assinado = fExtractPath(EDT_retorno,fFileName+fExtension) EDT_diretorio_arquivo_xml_assinado=EDT_localizacao_diretorio_xml+EDT_xml_assinado _arquivo_acbr is string=[ NFE.EnviarNFe("#cArqXML#,#nLote#,#bAssina#,#nImprime#,#cImpressora#,#bSincrono#") ] s_cArqXML is string=EDT_diretorio_arquivo_xml_assinado s_nLote is string="" s_bAssina is string="0" s_nImprime is string="" s_cImpressora is string="" s_bSincrono is string="1"
_arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",s_cArqXML) _arquivo_acbr=Replace(_arquivo_acbr,"#nLote#",s_nLote) _arquivo_acbr=Replace(_arquivo_acbr,"#bAssina#",s_bAssina) _arquivo_acbr=Replace(_arquivo_acbr,"#nImprime#",s_nImprime) _arquivo_acbr=Replace(_arquivo_acbr,"#cImpressora#",s_cImpressora) _arquivo_acbr=Replace(_arquivo_acbr,"#bSincrono#",s_bSincrono)
EDT_XML=_arquivo_acbr
AULA 1304 WINDEV ACBR - 014 - NFE.EnviarNfe Enviar Para Sefaz 2A Parte
http://windevdesenvolvimento.blogspot.com/2017/12/aula-1304-windev-acbr-014-nfeenviarnfe.html
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 08 2017 - 12:44 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 16 2017 - 10:07 PM |
Procedure _510_010_ENVIAR_NFE() _arquivo_acbr is string=[ NFE.EnviarNFe("#cArqXML#",#nLote#,#bAssina#,#nImprime#,#cImpressora#,#bSincrono#) ] s_cArqXML is string=EDT_diretorio_arquivo_xml_assinado s_nLote is string="" s_bAssina is string="0" s_nImprime is string="" s_cImpressora is string="" s_bSincrono is string="1" _arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",s_cArqXML) _arquivo_acbr=Replace(_arquivo_acbr,"#nLote#",s_nLote) _arquivo_acbr=Replace(_arquivo_acbr,"#bAssina#",s_bAssina) _arquivo_acbr=Replace(_arquivo_acbr,"#nImprime#",s_nImprime) _arquivo_acbr=Replace(_arquivo_acbr,"#cImpressora#",s_cImpressora) _arquivo_acbr=Replace(_arquivo_acbr,"#bSincrono#",s_bSincrono) EDT_TXT_ENVIADO=_arquivo_acbr VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida) EDT_RETORNO_ENVIO_NFE=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_TXT_ENVIADO,EDT_diretorio_arquivo_saida)
Procedure _520_010_GRAVANDO_RETORNO() EDT_AUDITORIA+=CR+"Lendo Arquivo Transmitido["+EDT_diretorio_arquivo_xml_assinado+"]" EDT_xml_assinado_retorno=fLoadText(EDT_diretorio_arquivo_xml_assinado) XMLDocument("XML1",EDT_xml_assinado_retorno) EDT_chNFe=XMLRead("XML1","/nfeProc/protNFe/infProt/chNFe") EDT_nProt=XMLRead("XML1","/nfeProc/protNFe/infProt/nProt") EDT_cStat=XMLRead("XML1","/nfeProc/protNFe/infProt/cStat") EDT_xMotivo=XMLRead("XML1","/nfeProc/protNFe/infProt/xMotivo") EDT_nNF=XMLRead("XML1","/nfeProc/NFe/infNFe/ide/nNF")+CR EDT_tpAmb=XMLRead("XML1","/nfeProc/protNFe/infProt/tpAmb") EDT_dhRecbto=XMLRead("XML1","/nfeProc/protNFe/infProt/dhRecbto") EDT_digVal=XMLRead("XML1","/nfeProc/protNFe/infProt/digVal") XMLClose("XML1")
AULA 1308 WINDEV ACBR - 016 - NFE.EnviarNfe Enviar Para Sefaz 4A Parte
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1308-windev-acbr-016-nfeenviarnfe.html
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 18 2017 - 9:24 AM |
AULA 1309 WINDEV ACBR - 017 - NFE.CancelarNFe
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" ExecuteProcess(BTN_Imprimir_Cancelamento,trtClick) Info("Cancelamento Pronto - Vai Entrar no Site e confirme se Foi Realmente Cancelada") ShellExecute("http://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx?chaveNFe="+EDT_ChaveNFE) Close(WIN_NFE_Cancelamento) 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_nfe#",#justificativa#,#cnpj_emissor#,#evento#) ] _arquivo_acbr=Replace(_arquivo_acbr,"#chave_nfe#",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)
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
=================================================================
NFE.CANCELARNFE("43171203850874000126550010000038991000038998",CANCELAMENTO TESTE ,03850874000126,110111)
=================================================================
RETORNO
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=43171203850874000126550010000038991000038998 DhRecbto=17/12/2017 16:15:03 NProt=143170001511870 tpEvento=110111 xEvento= nSeqEvento=1 CNPJDest=89184238000128 emailDest= Arquivo=C:\amarildo\jairo\xml_acbr\Arqs\03850874000126\NFe\201712\Evento\Cancelamento\1101114317120385087400012655001000003899100003899801-procEventoNFe.xml XML=
=================================================================
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1309-windev-acbr-017-nfecancelarnfe.html
Mensagem modificada, dezembro, 18 2017 - 9:26 AM |
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 19 2017 - 11:55 AM |
Procedure _000_00_INUTILIZAR_ACBR_UNINFE()
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
_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)
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 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
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1310-windev-acbr-018.html
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 21 2017 - 12:44 PM |
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)
EDT_xml_criado=_arquivo_acbr EDT_Auditoria+=_arquivo_acbr
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
http://windevdesenvolvimento.blogspot.com/2017/12/aula-1311-windev-acbr-019.html
1311 WINDEV ACBR - 019 - NFe.EnviarEvento - Carta de Correção
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 24 2017 - 3:33 AM |
Procedure ACBR_TROCA_CERTIFICADO() HReadSeekFirst(parametros,codigo_parametro,1) IF HFound(parametros) THEN IF parametros.acbr_nfe=True THEN HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo) IF HFound(empresa_certificado) THEN s_NUMERO_SERIE is string = INIRead("Certificado","NumeroSerie","","C:\ACBrMonitorPLUS\ACBrMonitor.ini") s_NUMERO_SERIAL is string=Replace(empresa_certificado.serial_numero," ","") IF s_NUMERO_SERIAL=s_NUMERO_SERIE THEN ELSE INIWrite("Certificado","NumeroSerie",s_NUMERO_SERIAL,"C:\ACBrMonitorPLUS\ACBrMonitor.ini") INIWrite("Certificado","Senha",empresa_certificado.senha,"C:\ACBrMonitorPLUS\ACBrMonitor.ini") Info("ARRUMAR DIRETORIO WIN_SELECIONAEMPRESA") s_diretorio is string="C:\amarildo\jairo\xml_acbr\PASTA\" s_arquivo_entrada is string=s_diretorio+"ent.txt" s_arquivo_Saida is string=s_diretorio+"sai.txt" IF fFileExist(s_arquivo_Saida) THEN fDelete(s_arquivo_Saida) END s_arquivo_acbr is string=[ ACBr.lerini() ] fSaveText(s_arquivo_entrada,s_arquivo_acbr) END END END END
AULA 1313 WINDEV ACBR 020 - ACBR.LERINI
http://acbr.sourceforge.net/ACBrMonitor/ACBrlerini.html
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1313-windev-acbr-020-acbrlerini.html
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 26 2017 - 11:09 AM |
Procedure ACBR_SET_TROCA_CERTIFICADO() s_EDT_xml_retorno is string="" s_EDT_localizacao_arquivo_retorno_carta is string="" s_EDT_xml_criado is string="" s_vem_onde is string="" s_titulo is string="" n_numero_nota is int=0 s_EDT_diretorio is string="" s_EDT_diretorio_arquivo_entrada is string="" s_EDT_diretorio_arquivo_saida is string="" s_arquivo_acbr is string="" HReadSeekFirst(parametros,codigo_parametro,1) IF HFound(parametros) THEN IF parametros.acbr_nfe=True THEN HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo) IF HFound(empresa_certificado) THEN
s_EDT_diretorio="C:\amarildo\jairo\xml_acbr\PASTA\" s_EDT_diretorio_arquivo_entrada=s_EDT_diretorio+"ent.txt" s_EDT_diretorio_arquivo_saida=s_EDT_diretorio+"sai.txt" VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida) s_arquivo_acbr=[ NFE.CNPJCertificado ] s_EDT_xml_criado=s_arquivo_acbr (s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ... s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ... s_EDT_diretorio_arquivo_saida,s_vem_onde, ... n_numero_nota,s_titulo,s_EDT_diretorio) s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,"OK: ","") s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,CR,"") s_cnpj_numero is string=s_EDT_xml_retorno IF empresa.cnpj=s_cnpj_numero THEN ELSE
*** PROXIMA AULA TROCAR CERTIFICADO
AULA 1314 WINDEV ACBR 021 - NFE.CNPJCertificado
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1314-windev-acbr-021.html
|
| |
| |
| | | |
|
| | |
| |
Membro registado 535 mensagems Popularité : +14 (14 votes) |
|
Publicado em dezembro, 27 2017 - 10:25 AM |
Procedure ACBR_SET_TROCA_CERTIFICADO() s_EDT_xml_retorno is string="" s_EDT_localizacao_arquivo_retorno_carta is string="" s_EDT_xml_criado is string="" s_vem_onde is string="" s_titulo is string="" n_numero_nota is int=0 s_EDT_diretorio is string="" s_EDT_diretorio_arquivo_entrada is string="" s_EDT_diretorio_arquivo_saida is string="" s_arquivo_acbr is string="" HReadSeekFirst(parametros,codigo_parametro,1) IF HFound(parametros) THEN IF parametros.acbr_nfe=True THEN HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo) IF HFound(empresa_certificado) THEN
s_EDT_diretorio="C:\amarildo\jairo\xml_acbr\PASTA\" s_EDT_diretorio_arquivo_entrada=s_EDT_diretorio+"ent.txt" s_EDT_diretorio_arquivo_saida=s_EDT_diretorio+"sai.txt" VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida) s_arquivo_acbr=[ NFE.CNPJCertificado ] s_EDT_xml_criado=s_arquivo_acbr (s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ... s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ... s_EDT_diretorio_arquivo_saida,s_vem_onde, ... n_numero_nota,s_titulo,s_EDT_diretorio) s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,"OK: ","") s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,CR,"") s_cnpj_numero is string=s_EDT_xml_retorno IF empresa.cnpj=s_cnpj_numero THEN ELSE VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida)
s_arquivo_acbr=[ NFe.SetCertificado(#cCertificado#) ] s_arquivo_acbr=Replace(s_arquivo_acbr,"#cCertificado#",empresa_certificado.serial_numero) s_EDT_xml_criado=s_arquivo_acbr
(s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ... s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ... s_EDT_diretorio_arquivo_saida,s_vem_onde, ... n_numero_nota,s_titulo,s_EDT_diretorio)
END
END END END
AULA 1315 WINDEV ACBR 022 - NFE.SetCertificado
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1315-windev-acbr-022.html
|
| |
| |
| | | |
|
| | | | |
| | |
|