- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- M460FIM Transmissão NF-E
×
Linguagem de Programação ADVPL
Perguntas M460FIM Transmissão NF-E
- ftvernier
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- ftvernier
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
9 anos 10 meses atrás #26715
por ftvernier
Kanaãm, tudo bem?
Cara eu hoje uso o AUTONFE aqui na empresa, mas é um serviço que apresenta problemas, tais como fechar sozinho, vi que alguns analistas fizeram uma alternativa de assim que o documento é preparado a NF-E ser transmitida.
Tenho um exemplo aqui mas não sei se irá funcionar.
Segue:
U_EnvSefaz(SF2->F2_SERIE, SF2->F2_DOC)
User Function EnvSefazS( _cSerie, _cDoc )
Local cURL := ""
Local lOk := .T.
Local oWs
Local cAmbiente
oWs := WsSpedCfgNFe():New()
cURL := PadR(GetMv("MV_SPEDURL"),250)
If CTIsReady()
oWS:cUSERTOKEN := "TOTVS"
oWS:cID_ENT := cIdEnt
oWS:nAmbiente := 0
oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw"
lOk := oWS:CFGAMBIENTE()
cAmbiente := oWS:cCfgAmbienteResult
cAmbiente := Substr(cAmbiente,1,1)
AutoNfeEnv(cEmpAnt, cEmpAnt, "0", cAmbiente, _cSerie, _cDoc, _cDoc )
Endif
Return
Abraços.
Respondido por ftvernier no tópico M460FIM Transmissão NF-E
Kanaãm Luz Romero Rodrigues escreveu: Fernando,
Qual a sua necessidade nesse PE?
Realizar alguma gravação pré-transmissão da NF?
Kanaãm, tudo bem?
Cara eu hoje uso o AUTONFE aqui na empresa, mas é um serviço que apresenta problemas, tais como fechar sozinho, vi que alguns analistas fizeram uma alternativa de assim que o documento é preparado a NF-E ser transmitida.
Tenho um exemplo aqui mas não sei se irá funcionar.
Segue:
U_EnvSefaz(SF2->F2_SERIE, SF2->F2_DOC)
User Function EnvSefazS( _cSerie, _cDoc )
Local cURL := ""
Local lOk := .T.
Local oWs
Local cAmbiente
oWs := WsSpedCfgNFe():New()
cURL := PadR(GetMv("MV_SPEDURL"),250)
If CTIsReady()
oWS:cUSERTOKEN := "TOTVS"
oWS:cID_ENT := cIdEnt
oWS:nAmbiente := 0
oWS:_URL := AllTrim(cURL)+"/SPEDCFGNFe.apw"
lOk := oWS:CFGAMBIENTE()
cAmbiente := oWS:cCfgAmbienteResult
cAmbiente := Substr(cAmbiente,1,1)
AutoNfeEnv(cEmpAnt, cEmpAnt, "0", cAmbiente, _cSerie, _cDoc, _cDoc )
Endif
Return
Abraços.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 10 meses atrás #26721
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico M460FIM Transmissão NF-E
Fernando como te passei segue um exemplo que poderá colocar diretamente no ponto de entrada M460FIM pois já vai estar posicionado na nota fiscal gerada Tabela SF2
User Function M460FIM()
AutoNfeEnv(cEmpAnt,SF2->F2_FILIAL,"0","1",SF2->F2_SERIE,SF2->F2_DOC,SF2->F2_DOC)
RestArea(aArea)
Return
//Parametros AutoNfeEnv :
//cEmpresa,
//cFilial,
//cEspera,
//cAmbiente (1=producao,2=Homologacao) Muito cuidado.
//cSerie
//cDoc.Inicial
//cDoc.Final
User Function M460FIM()
AutoNfeEnv(cEmpAnt,SF2->F2_FILIAL,"0","1",SF2->F2_SERIE,SF2->F2_DOC,SF2->F2_DOC)
RestArea(aArea)
Return
//Parametros AutoNfeEnv :
//cEmpresa,
//cFilial,
//cEspera,
//cAmbiente (1=producao,2=Homologacao) Muito cuidado.
//cSerie
//cDoc.Inicial
//cDoc.Final
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- ftvernier
- Autor do Tópico
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- M460FIM Transmissão NF-E
Tempo para a criação da página:0.136 segundos