Pesquisar na Comunidade
Showing results for tags 'acbrnfse1.enviar;nfse retorno ao enviar'.
Encontrado 1 registro
-
Boa tarde senhores. Estou enfrentando algumas dificuldades ao trabalhar com o issnet Cuiabá-MT Apos o comando enviar se houver algum erro seja ele qual for simplesmente o componente gera uma mensagem de erro e interrompe o ciclo da aplicação e como se um abort fosse executado, ontem dia 12/04/2017 por exemplo o servidor da prefeitura estava lento para processar as notas então ao enviar ele retornava uma mensagem em branco, gostaria de saber se existe alguma possibilidade de apos algum tipo de erro no envio eu conseguir fazer o tratamento descrito no código abaixo por exemplo. if ACBrNFSe1.Enviar(IntToStr(ANFSELote)) then begin for i := 0 to ANFSEQTD -1 do begin if trim(ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao) <> '' then begin //ACBrNFSe1.NotasFiscais.Items.NFSe. DMGERVST.Socket.AppServer.GER_IniciaTransacao; // Inicia transação with cdsConsultaNFSE do begin Close; Params.Clear; Params.CreateParam(ftString,'NFSE_CODIGOVERIFICACAO',ptInput); Params.CreateParam(ftString,'NFSE_NOMEARQUIVO',ptInput); Params.CreateParam(ftString,'NFSE_NUMERO',ptInput); Params.CreateParam(ftString,'NFSE_PROTOCOLO',ptInput); Params.CreateParam(ftString,'STATUS',ptInput); Params.CreateParam(ftInteger,'ID_EMPRESA',ptInput); Params.CreateParam(ftInteger,'ID_FILIAL',ptInput); Params.CreateParam(ftString,'NFSE_RPS',ptInput); Params.CreateParam(ftString,'NFSE_SERIE',ptInput); CommandText:= ' UPDATE TAST_NFSE SET '+#13+ ' NFSE_CODIGOVERIFICACAO = :NFSE_CODIGOVERIFICACAO, '+#13+ ' NFSE_NOMEARQUIVO = :NFSE_NOMEARQUIVO, '+#13+ ' NFSE_NUMERO = :NFSE_NUMERO, '+#13+ ' NFSE_PROTOCOLO = :NFSE_PROTOCOLO, '+#13+ ' STATUS = :STATUS '+#13+ ' WHERE ID_EMPRESA = :ID_EMPRESA '+#13+ ' AND ID_FILIAL = :ID_FILIAL '+#13+ ' AND NFSE_RPS = :NFSE_RPS '+#13+ ' AND NFSE_SERIE = :NFSE_SERIE '+#13; Params.ParamByName('NFSE_CODIGOVERIFICACAO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao; Params.ParamByName('NFSE_NOMEARQUIVO').AsString := ExtractFileName(ACBrNFSe1.NotasFiscais.Items.NomeArq); Params.ParamByName('NFSE_NUMERO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Numero; Params.ParamByName('NFSE_PROTOCOLO').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Protocolo; Params.ParamByName('STATUS').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.Situacao; Params.ParamByName('ID_EMPRESA').AsInteger := SisEmpresa; Params.ParamByName('ID_FILIAL').AsInteger := SisFilial; Params.ParamByName('NFSE_RPS').AsString := ACBrNFSe1.NotasFiscais.Items.NFSe.IdentificacaoRps.Numero; Params.ParamByName('NFSE_SERIE').AsString := IntToStr(ANFSENumeroSerie); Execute; end; DMGERVST.Socket.AppServer.GER_ConcretizaTransacao; end; { MemoDados.Lines.Add('Nome XML: '+ACBrNFSe1.NotasFiscais.Items.NomeArq); MemoDados.Lines.Add('Nota Numero: '+ACBrNFSe1.NotasFiscais.Items.NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao); } end; end else begin DMGERVST.Socket.AppServer.GER_IniciaTransacao; // Inicia transação with cdsConsultaNFSE do begin Close; Params.Clear; Params.CreateParam(ftString,'STATUS',ptInput); Params.CreateParam(ftInteger,'ID_EMPRESA',ptInput); Params.CreateParam(ftInteger,'ID_FILIAL',ptInput); Params.CreateParam(ftString,'NFSE_RPS',ptInput); Params.CreateParam(ftString,'NFSE_SERIE',ptInput); CommandText:= ' UPDATE TAST_NFSE SET '+#13+ ' STATUS = :STATUS '+#13+ ' WHERE ID_EMPRESA = :ID_EMPRESA '+#13+ ' AND ID_FILIAL = :ID_FILIAL '+#13+ ' AND NFSE_RPS = :NFSE_RPS '+#13+ ' AND NFSE_SERIE = :NFSE_SERIE '+#13; Params.ParamByName('STATUS').AsString := '0'; Params.ParamByName('ID_EMPRESA').AsInteger := SisEmpresa; Params.ParamByName('ID_FILIAL').AsInteger := SisFilial; Params.ParamByName('NFSE_RPS').AsInteger := ANFSELote; Params.ParamByName('NFSE_SERIE').AsString := IntToStr(ANFSENumeroSerie); Execute; end; DMGERVST.Socket.AppServer.GER_ConcretizaTransacao; end;