- Fórum
- Protheus/Microsiga/Totvs
- Comunicação Eletrônica (SEFAZ/SPED)
- Nfe (Nota Fiscal Eletrônica)
- Transmissão Automatica parou de funcionar
Perguntas Transmissão Automatica parou de funcionar
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9422
por Rstrozi
Transmissão Automatica parou de funcionar foi criado por Rstrozi
Boa noite pessoal,
Tenho uma rotina de transmissão automática de NFs de Saida que rodava belezinha desde abril. Depois de atualizar meu sistema no fim de semana passado, esta rotina parou de funcionar. Estive fazendo alguns testes agora a pouco e acho que alguém estava fazendo testes na TOTVS e acabou esquecendo de voltar o código correto.
Acessei meu webservice aqui e preenchi os parametros do CFGAMBIENTE e mandei executar. O resultado foi este:
Resposta da Requisição SOAP
WSCERR044 / Não foi possível POST : URL http://172.16.91.126:8888/spedgustavo/SPEDCFGNFE.apw ( 10060 : Connection timed out. )
ADVPL WSDL Client 1.120703 / TOTVS Manufatura Sped on 20130112 19:14:33
Quem será o tal do Gustavo que bagunçou o TSS?
Alguém passou pela mesma situação?
Abaixo o código da minha função de envio automático (enviada pelo amigo Joao Baptista) que chamo no P.E. M460FIM:
Tenho uma rotina de transmissão automática de NFs de Saida que rodava belezinha desde abril. Depois de atualizar meu sistema no fim de semana passado, esta rotina parou de funcionar. Estive fazendo alguns testes agora a pouco e acho que alguém estava fazendo testes na TOTVS e acabou esquecendo de voltar o código correto.
Acessei meu webservice aqui e preenchi os parametros do CFGAMBIENTE e mandei executar. O resultado foi este:
Resposta da Requisição SOAP
WSCERR044 / Não foi possível POST : URL http://172.16.91.126:8888/spedgustavo/SPEDCFGNFE.apw ( 10060 : Connection timed out. )
ADVPL WSDL Client 1.120703 / TOTVS Manufatura Sped on 20130112 19:14:33
Quem será o tal do Gustavo que bagunçou o TSS?
Alguém passou pela mesma situação?
Abaixo o código da minha função de envio automático (enviada pelo amigo Joao Baptista) que chamo no P.E. M460FIM:
#include "rwmake.ch"
#Include "protheus.ch"
#INCLUDE "TBICONN.CH"
#INCLUDE "TBICODE.CH"
User Function EnvSefazS(_cSerie,_cDoc,_cEmp,_cFil)
Local cURL := ""
Local lOk := .T.
Local oWs
Local cAmbiente
If !Used()
Conout("Nao Usado")
PREPARE ENVIRONMENT EMPRESA _cEmp FILIAL _cFil MODULO "FAT"
Else
Conout("Usado")
Endif
oWs := WsSpedCfgNFe():New()
cURL := PadR(GetMv("MV_SPEDURL"),250)
If CTIsReady()
// cURL := PadR(GetMv("MV_SPEDURL"),250)
// lOk := .T.
// oWs := WsSpedCfgNFe():New()
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Obtem o codigo da entidade ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If _cEmp == '15'
cIdEnt := "000001"
ElseIf _cEmp == '50'
cIdEnt := "000004"
EndIf
If !Empty(cIdEnt)
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Obtem o ambiente de execucao do Totvs Services SPED ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
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
Endif
ReturnPor favor Acessar ou Registrar para participar da conversa.
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9425
por Rstrozi
Respondido por Rstrozi no tópico Re: Transmissão Automatica parou de funcionar
Boa noite pessoal,
Fiz o mesmo teste no webservice do TSS que usava anteriormente (2.15) e o resultado foi o mesmo. A culpa não é do tal Gustavo...
Amanhã farei novos testes.
Fiz o mesmo teste no webservice do TSS que usava anteriormente (2.15) e o resultado foi o mesmo. A culpa não é do tal Gustavo...
Amanhã farei novos testes.
Por favor Acessar ou Registrar para participar da conversa.
- ecbonilha
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 180
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9429
por ecbonilha
Respondido por ecbonilha no tópico Re: Transmissão Automatica parou de funcionar
Rafael,
Teste novamente, o sefaz estava com problemas neste sábado, sinistro que nem off line conseguimos emitir o danfe, coisa que nunca ocorreu, era entrar na rotina de transmissão e pronto ninguém mais conseguia acessar ou demorava muito... Estou falando isso por sua mensagem "WSCERR044 / Não foi possível POST : URL 172.16.91.126:8888/spedgustavo/SPEDCFGNFE.apw" é similar ao erro que da quando o serviço não está disponível, creio que seja isso. abraço
Teste novamente, o sefaz estava com problemas neste sábado, sinistro que nem off line conseguimos emitir o danfe, coisa que nunca ocorreu, era entrar na rotina de transmissão e pronto ninguém mais conseguia acessar ou demorava muito... Estou falando isso por sua mensagem "WSCERR044 / Não foi possível POST : URL 172.16.91.126:8888/spedgustavo/SPEDCFGNFE.apw" é similar ao erro que da quando o serviço não está disponível, creio que seja isso. abraço
Por favor Acessar ou Registrar para participar da conversa.
- Rstrozi
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 123
- Obrigados Recebidos: 0
- ecbonilha
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 180
- Obrigados Recebidos: 0
11 anos 3 meses atrás #9445
por ecbonilha
Respondido por ecbonilha no tópico Re: Transmissão Automatica parou de funcionar
Entendi, minha rotina parou antes em uma atualização também, rs, dai em advpl não conseguiria o ajudar neste momento, foi mal e boa sorte!
"//Transmissão da Nota Fiscal eletronico
RptStatus({||U_TransmiteNF()},"Transmitindo a Nota Fiscal","Aguarde") // Aguarda alguns instantes para a Impressão do DANFE
lCTe:=.T.
SpedNFe6Mnt(SL1->L1_SERIE,SL1->L1_DOC,SL1->L1_DOC, lCTe)
If APMSGYESNO("Confirma a Emissao do DANFE agora ?")
U_ImpDanf1()"
"//Transmissão da Nota Fiscal eletronico
RptStatus({||U_TransmiteNF()},"Transmitindo a Nota Fiscal","Aguarde") // Aguarda alguns instantes para a Impressão do DANFE
lCTe:=.T.
SpedNFe6Mnt(SL1->L1_SERIE,SL1->L1_DOC,SL1->L1_DOC, lCTe)
If APMSGYESNO("Confirma a Emissao do DANFE agora ?")
U_ImpDanf1()"
Por favor Acessar ou Registrar para participar da conversa.
- cassiosilva
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
9 anos 6 meses atrás #25944
por cassiosilva
Respondido por cassiosilva no tópico Transmissão Automatica parou de funcionar
Pessoal, Boa tarde
Para agilizar o processo de faturamento.
Após gerar a NF (MATA460FIM) gostaria de transmitir a NF.
Para isto estou testando a função AutoNfeEnv(cEmpAnt, cEmpAnt, "0", cAmbiente, _cSerie, _cDoc, _cDoc )
Porém preciso saber também como faço para fazer a chamada da impressão do DANFE
Alguém pode me ajudar?
Obrigado.
Para agilizar o processo de faturamento.
Após gerar a NF (MATA460FIM) gostaria de transmitir a NF.
Para isto estou testando a função AutoNfeEnv(cEmpAnt, cEmpAnt, "0", cAmbiente, _cSerie, _cDoc, _cDoc )
Porém preciso saber também como faço para fazer a chamada da impressão do DANFE
Alguém pode me ajudar?
Obrigado.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- Comunicação Eletrônica (SEFAZ/SPED)
- Nfe (Nota Fiscal Eletrônica)
- Transmissão Automatica parou de funcionar
Tempo para a criação da página:0.116 segundos