sábado, 14 de dezembro de 2019

DICAS 2558 WINDEV WEBDEV MOBILE ACBR LIB 192 MDFE EncerrarMDFe





Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html






Boa Noite

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 15:00 do dia 15/12/2019.
Dica 2558. Método usado para Enviar um Evento para SEFAZ, no caso Encerramento do Mdfe.

DICAS 2558 - WINDEV WEBDEV MOBILE - ACBR LIB 192 - MDFE_EncerrarMDFe

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.


PROCEDURE acbr_MDFE_EncerrarMDFe(recebe_eChaveOuMDFe is string="",recebe_dtEnc is string="", ...
recebe_cMunicipioDescarga is string="",recebe_nCNPJ is string="", ...
recebe_nProtocolo is string="")
gsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API("ACBrMDFe32.dll", "MDFE_EncerrarMDFe",StringToUTF8(recebe_eChaveOuMDFe), ...
StringToUTF8(recebe_dtEnc),StringToUTF8(recebe_cMunicipioDescarga), ...
StringToUTF8(recebe_nCNPJ),StringToUTF8(recebe_nProtocolo), ...
&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN

RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta))

ELSE
texto is string="MDFE_EncerrarMDFe-Erro Retorno ["+gnretorno_acbr+"]"
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"
IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP"
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Encerrar Mdfe"
texto+=ACBR_ULTIMO_RETORNO("ACBrMDFe32.DLL","MDFE_UltimoRetorno")

RESULT texto

END
=======================================================================
PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)
gsResposta_maior_256 is string=""
IF RECEBE_GNTAMANHO>256 THEN
gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)
gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)
RESULT UTF8ToString(gsResposta_maior_256)
ELSE
RESULT UTF8ToString(RECEBE_GSRESPOSTA)
END
//"NFE_UltimoRetorno"
=======================================================================
PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

gnTamanho is system int=256
gsResposta is string on 256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)
sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR
sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)
RESULT sTEXTO_R
=======================================================================


// BTN_CARTA_ACBR_MDFE_ENVIARVENTO

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN

EDT_RESPOSTA=acbr_MDFE_EncerrarMDFe(EDT_mdfe_Encerramento_eChaveOuMDFe,edt_mdfe_encerramento_dtEnc, ...
                                                 edt_mdfe_encerramento_cMunicipioDescarga,edt_mdfe_encerramento_nCNPJ, ...
                                                 edt_mdfe_encerramento_nProtocolo)

END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
=======================================================================
































DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
DICAS 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar
DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF
DICAS 2505 WINDEV WEBDEV MOBILE ACBR 176 CTE ImprimirPDF 2a parte
DICAS 2508 WINDEV WEBDEV MOBILE ACBR 177 MDFe Inicializar E Finalizar
DICAS 2511 WINDEV WEBDEV MOBILE ACBR 178 MDFE CarregarINI
DICAS 2515 WINDEV WEBDEV MOBILE ACBR 179 MDFE CarregarXML
DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml
DICAS 2522 WINDEV WEBDEV MOBILE ACBR 181 MDFE Assinar
DICAS 2524 WINDEV WEBDEV MOBILE ACBR 182 MDFE Validar
DICAS 2527 WINDEV WEBDEV MOBILE ACBR 183 MDFE LimparLista
DICAS 2531 WINDEV WEBDEV MOBILE ACBR 184 MDFE LimparListaEveventosentos
DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar
DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar
DICAS 2539 WINDEV WEBDEV MOBILE ACBR 187 MDFE Consultar
DICAS 2541 WINDEV WEBDEV MOBILE ACBR 189 MDFE Imprimir
DICAS 2544 WINDEV WEBDEV MOBILE ACBR 189 MAIL Inicializar e Finalizar
DICAS 2547 WINDEV WEBDEV MOBILE ACBR 190 MAIL Clear
DICAS 2556 WINDEV WEBDEV MOBILE ACBR LIB 191 MDFE ConsultaMDFeNaoEnc
DICAS 2558 WINDEV WEBDEV MOBILE ACBR LIB 192 MDFE EncerrarMDFe

    RETOMADA ACBRLIB - REVISANDO 

 DICA 2840 - 13/04/2020 17:00 - WINDEV WEBDEV MOBILE - ACBR LIB 193 - 1 - REVISAO - INICIALIZAR - FINALIZAR - STATUS SERVICO-

DICA 2845 - 15/04/2020 17:00 - WINDEV WEBDEV MOBILE - ACBR LIB 194 - IMPRIMIR DANFE - CARREGAR XML - LIMPA LISTA

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













Postado por às Nenhum comentário:
Marcadores: ,

Ao vivo 2557 - 14/12/2019 19:00 - Amarildo Fazendo a Aula do Encerrament...





Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html












Postado por às Nenhum comentário:
Marcadores:

DICAS 2556 WINDEV WEBDEV MOBILE ACBR LIB 191 MDFE ConsultaMDFeNaoEnc





Doação Para Amarildo matos - https://streamelements.com/amarildo_matos/tip





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html





Boa Tarde

Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip

Seja bem vindos a mais uma video Aula. Essa aula estara disponivel as 18:00 do dia 14/12/2019.
Dica 2556. Método usado para Enviar um Evento para SEFAZ, No Caso Consulta Mdfe Nao Encerrado.

DICAS 2556 - WINDEV WEBDEV MOBILE - ACBR LIB 191 - MDFE_ConsultaMDFeNaoEnc

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2556-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/MDFE_ConsultaMDFeNaoEnc.html




PROCEDURE acbr_MDFE_ConsultaMDFeNaoEnc(recebe_cnpj is string="")
gsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API("ACBrMDFe32.dll","MDFE_ConsultaMDFeNaoEnc",StringToUTF8(recebe_cnpj),&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta))
ELSE
texto is string="MDFE_ConsultaMDFeNaoEnc-Erro Retorno ["+gnretorno_acbr+"]"
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"
IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP"
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar Mdfe Nao Encerrados"
texto+=ACBR_ULTIMO_RETORNO("ACBrMDFe32.DLL","MDFE_UltimoRetorno")
RESULT texto
END


PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA)
gsResposta_maior_256 is string=""
IF RECEBE_GNTAMANHO>256 THEN
gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO)
gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO)
RESULT UTF8ToString(gsResposta_maior_256)
ELSE
RESULT UTF8ToString(RECEBE_GSRESPOSTA)
END
//"NFE_UltimoRetorno"



PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")
gnTamanho is system int=256
gsResposta is string on 256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho)
sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR
sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta)
RESULT sTEXTO_R



// btn_consulta_nao_encerrados
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
    EDT_RESPOSTA=acbr_MDFE_ConsultaMDFeNaoEnc(edt_mdfe_encerramento_nCNPJ)
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
===========================































DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
DICAS 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
DICAS 2497 WINDEV WEBDEV MOBILE ACBR 174 ACBR LIB CTE Cancelar
DICAS 2499 WINDEV WEBDEV MOBILE ACBR 175 ACBR LIB CTE ImprimirPDF
DICAS 2505 WINDEV WEBDEV MOBILE ACBR 176 CTE ImprimirPDF 2a parte
DICAS 2508 WINDEV WEBDEV MOBILE ACBR 177 MDFe Inicializar E Finalizar
DICAS 2511 WINDEV WEBDEV MOBILE ACBR 178 MDFE CarregarINI
DICAS 2515 WINDEV WEBDEV MOBILE ACBR 179 MDFE CarregarXML
DICAS 2519 WINDEV WEBDEV MOBILE ACBR 180 MDFe ObterXml
DICAS 2522 WINDEV WEBDEV MOBILE ACBR 181 MDFE Assinar
DICAS 2524 WINDEV WEBDEV MOBILE ACBR 182 MDFE Validar
DICAS 2527 WINDEV WEBDEV MOBILE ACBR 183 MDFE LimparLista
DICAS 2531 WINDEV WEBDEV MOBILE ACBR 184 MDFE LimparListaEveventosentos
DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar
DICAS 2537 WINDEV WEBDEV MOBILE ACBR 186 MDFE Cancelar
DICAS 2539 WINDEV WEBDEV MOBILE ACBR 187 MDFE Consultar
DICAS 2541 WINDEV WEBDEV MOBILE ACBR 189 MDFE Imprimir
DICAS 2544 WINDEV WEBDEV MOBILE ACBR 189 MAIL Inicializar e Finalizar
DICAS 2547 WINDEV WEBDEV MOBILE ACBR 190 MAIL Clear
DICAS 2556 WINDEV WEBDEV MOBILE ACBR LIB 191 MDFE ConsultaMDFeNaoEnc
DICAS 2558 WINDEV WEBDEV MOBILE ACBR LIB 192 MDFE EncerrarMDFe

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












Postado por às Nenhum comentário:
Marcadores: ,
Assinar: Postagens (Atom)

Teste

Teste
teste