[106 Lote não localizado]

A sefaz do RS esta recebendo, o problema esta apenas na resposta se um CTe estiver com informações erradas, não vai retorna o erro. Mas caso estiver coreto apenas consulte o CTe e corrija a informação com o retorno do mesmo.

7 minutos atrás, João Alberto Amaral disse:

Também estou  no RS e esta dando o mesmo problema: 106 Lote nao localizado

depois tentei enviar em contingencia para o SVC-SP e deu o mesmo erro !

Como o colega comentou também testei no ambiente de homologação e tive sucesso mas no de produção da o erro.

22 minutos atrás, jonasfronchetti disse:

O mais estranho que o lote é recebido pelo servidor do RS e apos o retorno é essa mensagem 106 Lote não localizado.

Mas ao consultar o CTe enviado o retorno é que ele foi recebido com sucesso e está autorizado.

 

 

[106 Lote não localizado]

O mais estranho que o lote é recebido pelo servidor do RS e apos o retorno é essa mensagem 106 Lote não localizado.

Mas ao consultar o CTe enviado o retorno é que ele foi recebido com sucesso e está autorizado.

 

[106 Lote não localizado]

Bom dia Italo .

O emitente é do RS.

Essa mensagem "106 Lote não localizado" esta dando apenas no CTe em ambiente de produção, em homologação esta normal.

MDFe e NFe ambos estão normal.

 

[106 Lote não localizado]

Bom dia.

Ao enviar os conhecimentos para a SVCSP retorno a seguinte mensagem:

SVC-SP desabilitada pela SEFAZ Origem UF.

Então não esta habilitado.

[Dacte Fortes Report não imprimi todas as chaves das NF-e]

Boa tarde

A alteração do Rodrigo Belmiro sobrescreveu a alteração do Jose Geraldo.

Eu juntei as duas alterações e estou mandando em anexo.

 

 

 

ACBrCTeDACTeRLRetrato.rar

[Impressão evento CTe sem mostrar relatório Fortes]

Eu fiz uma correção na impressão do evento do Cte na Trunk2.

Quando colocar as opções MostrarPreview e PrintDialog como false do componente ACBrCTeDACTeRL, que seria para não mostrar o relatório e imprimir ele sem mostrar o dialog da impressora, no evento mesmo assim mostra o dialog da impressora, funcionando apenas no relatório do cte.

Eu precisaria que essas alterações fossem adicionadas.

** A correção que eu fiz foi na classe ACBrCTeDAEventoRL adicionei o que esta em negrito nas linhas 98, 126, 153

  public
    class procedure Imprimir(AEventoCTe: TInfEventoCollectionItem; ALogo: string = '';
      ANumCopias: integer = 1; ASistema: string = '';
      AUsuario: string = ''; AMostrarPreview: boolean = True;
      AMargemSuperior: double = 0.7; AMargemInferior: double = 0.7;
      AMargemEsquerda: double = 0.7; AMargemDireita: double = 0.7;
      AImpressora: string = ''; ACTe: TCTe = nil; APrintDialog: boolean = False);

 

class procedure TfrmCTeDAEventoRL.Imprimir(AEventoCTe: TInfEventoCollectionItem;
  ALogo: string = '';
  ANumCopias: integer = 1;
  ASistema: string = '';
  AUsuario: string = '';
  AMostrarPreview: boolean = True;
  AMargemSuperior: double = 0.7;
  AMargemInferior: double = 0.7;
  AMargemEsquerda: double = 0.7;
  AMargemDireita: double = 0.7;
  AImpressora: string = '';
  ACTe: TCTe = nil;
  APrintDialog: boolean = False);
begin
  with Create(nil) do
    try
      FEventoCTe := AEventoCTe;
      FLogo := ALogo;
      FNumCopias := ANumCopias;
      FSistema := ASistema;
      FUsuario := AUsuario;
      FMostrarPreview := AMostrarPreview;
      FMargemSuperior := AMargemSuperior;
      FMargemInferior := AMargemInferior;
      FMargemEsquerda := AMargemEsquerda;
      FMargemDireita := AMargemDireita;
      FImpressora := AImpressora;

      if ACTe <> nil then
        FCTe := ACTe;

      if FImpressora > '' then
        RLPrinter.PrinterName := FImpressora;

      if FNumCopias > 0 then
        RLPrinter.Copies := FNumCopias
      else
        RLPrinter.Copies := 1;

      RLCTeEvento.PrintDialog := APrintDialog;
      if FMostrarPreview = True then
        RLCTeEvento.PreviewModal
      else
        RLCTeEvento.Print;
    finally
  //    RLCTeEvento.Free;
  //    RLCTeEvento := nil;
      Free;
    end;
end;

 

** Também mudei na classe que chama essa procedure que é a ACBrCTeDACTeRLClass adicionando na linha 288 o que esta em negrito

 

procedure TACBrCTeDACTeRL.ImprimirEVENTO(CTe: TCTe);
var
  i, j: integer;
  Impresso: boolean;
begin
  frmCTeDAEventoRL := TfrmCTeDAEventoRLRetrato.Create(Self);

  if TACBrCTe(ACBrCTe).Conhecimentos.Count > 0 then
  begin
    for i := 0 to (TACBrCTe(ACBrCTe).EventoCTe.Evento.Count - 1) do
    begin
      Impresso := False;
      for j := 0 to (TACBrCTe(ACBrCTe).Conhecimentos.Count - 1) do
      begin
        if OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items[j].CTe.infCTe.Id) = TACBrCTe(ACBrCTe).EventoCTe.Evento.Items.InfEvento.chCTe then
        begin
          frmCTeDAEventoRL.Imprimir(TACBrCTe(ACBrCTe).EventoCTe.Evento.Items,
            FLogo,
            FNumCopias,
            FSistema,
            FUsuario,
            FMostrarPreview,
            FMargemSuperior,
            FMargemInferior,
            FMargemEsquerda,
            FMargemDireita,
            FImpressora,
            TACBrCTe(ACBrCTe).Conhecimentos.Items[j].CTe,
            FPrintDialog);
          Impresso := True;
          Break;
        end;
      end;

 

Também em anexo as classes que eu alterei.

Att

Jonas Fronchetti

ACBrCTeDACTeRLClass.pas

ACBrCTeDAEventoRL.pas

[Dacte Fortes Report não imprimi todas as chaves das NF-e]

Bom Dia Jose,

Muito obrigado pelos fontes, eu também não tenho muita experiencia com fortes, mas estudar eles assim que diminuir um pouco o serviço.

Abraço

[Dacte Fortes Report não imprimi todas as chaves das NF-e]

Bom dia Jose,

Aconteceu a mesma situação para mim não tive tempo de resolver isso, olhando mais a fundo os fontes do DACTE no Fortes verifiquei que atualmente só esta implementado para mostrar até 8 notas.

Para mostrar mais de o notas teria que ser feita uma implementação disso no DACTE do Fortes para quando passar de 8 notas criar uma pagina 2. 

As notas até são adicionadas no cdsDocumentos e adicionada no rlDocOrig_tpDoc, mas como o tamanho desse ultimo é fixo acaba mostrando apenas as 8 primeiras.