SAT.AssociarAssinatura CNPJ?

[Bruno Trevisan]

Bom dia gente uma duvida boba 

no comando SAT.AssociarAssinatura do Monitor Plus o cnpj é CNPJ SH + CNPJ CLIENTE? 

pq usando o comando da sempre CNPJ Inválido. 

Mas associando direto pelo Monitor Funciona, Deu para entender? 

Verifiquei os 2 comandos e ambos entao com o cnpj correto mas pq via comando nao funciona? essa função esta descontinuada?

associar agora apenas pelo botao do monitor? 

 

[Daniel Simoes]

Qual o SAT ? o Emulador de SP exige um CNPJ padrão, para Associação de Assinatura

[Bruno Trevisan]

6 minutos atrás, Daniel Simoes disse:

Qual o SAT ? o Emulador de SP exige um CNPJ padrão, para Associação de Assinatura

 

Oi daniel boa tarde,

foi um dLink = e mandei assim meuCNPJ + cnpjCliente no comando tcp tah e deu erro cnpj invalido

agora dentro do monitor foi do mesmo jeito e deu certo, sabe clicando no botao associar assinatura 

[Daniel Simoes]

Poste trecho do Log do MonitorPLUS, com o comando que você enviou

[Bruno Trevisan]

17 minutos atrás, Daniel Simoes disse:

Poste trecho do Log do MonitorPLUS, com o comando que você enviou

 

esse comando fiz via TCP do meu software para o monitor:

MEU CNPJ

CNPJ DO CLIENTE

SAT.AssociarAssinatura("2377066600012400000000000000",Njzn+3asEsVx7AhKQxaX3LArkWAeoJF4FWRl3CcyKd0e+6cFy8+JvPB39vDrO6VdEXsWXEGrWz+KCFR/IRLcLaq1/fcTxOUc1YSjP+72oe7wYETe5tHIWeGIHGZCawh2+euuSllUX7emB3rTx5oy620El03g0cD1tMnnaxoG47lJGo4pWet8KSY6bp0wqoRlPTeeGPOcqs/P3Dw+OVCtUNtTF0QKFlTGjuNNUlyhcidmSzO69Q70zeBliPvHuqc7TFlZjvK7fLmpljTGAg1IK1E0jfDJpz/dCUGmINa/qj5fZTsOfp77mLWzyHKjptW4+b9JvFRG+SY/Yc7TpkB/dQ==)

retorno: CNPJ inválido 

 

Agora abrindo o Monitor e clicando no botao Associar assinatura

NumeroSessao: 326435 - Comando: AssociarAssinatura( 2377066600012400000000000000, Njzn+3asEsVx7AhKQxaX3LArkWAeoJF4FWRl3CcyKd0e+6cFy8+JvPB39vDrO6VdEXsWXEGrWz+KCFR/IRLcLaq1/fcTxOUc1YSjP+72oe7wYETe5tHIWeGIHGZCawh2+euuSllUX7emB3rTx5oy620El03g0cD1tMnnaxoG47lJGo4pWet8KSY6bp0wqoRlPTeeGPOcqs/P3Dw+OVCtUNtTF0QKFlTGjuNNUlyhcidmSzO69Q70zeBliPvHuqc7TFlZjvK7fLmpljTGAg1IK1E0jfDJpz/dCUGmINa/qj5fZTsOfp77mLWzyHKjptW4+b9JvFRG+SY/Yc7TpkB/dQ== )

Retorno:  Resposta:326435|13000|Assinatura do AC Registrada||

é mesmo comando como pode dar errado? rs

 

o CNPJ do cliente ta 0000000000 para nao expor ele no forum tah , logicamente nao é esse cnpj rsrs

[Daniel Simoes]

O botão deve enviar o comando direto para o componente ACBrSAT... ao passo que o comando "SAT.AssociarAssinatura" deve fazer uma validação prévia dos CNPJs (não conferi nos fontes)

Em todo caso... 00000000000000 é um CNPJ inválido

[Bruno Trevisan]

7 minutos atrás, Daniel Simoes disse:

O botão deve enviar o comando direto para o componente ACBrSAT... ao passo que o comando "SAT.AssociarAssinatura" deve fazer uma validação prévia dos CNPJs (não conferi nos fontes)

Em todo caso... 00000000000000 é um CNPJ inválido

OI daniel postei no final da resposta o 00000000000000 eu alterei para postar aqui no forum e nao expor o cnpj verdadeiro do cliente mas no comando eu mandei o cnpj verdadeiro

[Daniel Simoes]

@José M. S. Junior, Realmente parece haver um erro de programação no método TMetodoAssociarAssinatura, da Unit DoSATUnit.pas, do ACBrMonitorPLUS...

Por favor verifique se a modificação abaixo, resolve o problema

{ TMetodoAssociarAssinatura }

{ Params: 0 - CNPJs - Uma String contendo o CNPJ da Sw.House + CNPJ do Emissor para ativação
          1 - Assinatura - Uma String com a assinatura
}
procedure TMetodoAssociarAssinatura.Executar;
var
  cCNPJs, cCNPJSwHouse, cCNPJEmissor, cAssinatura: String;
begin
  cCNPJs := fpCmd.Params(0);
  cCNPJSwHouse := copy(cCNPJs, 1,14);
  cCNPJEmissor := copy(cCNPJs,15,14);
  cAssinatura := fpCmd.Params(1);

  with TACBrObjetoSAT(fpObjetoDono), MonitorConfig do
  begin
    if EstaVazio(Trim(cCNPJSwHouse)) then
      cCNPJSwHouse := SAT.SATSWH.CNPJ;

    if EstaVazio(Trim(cCNPJEmissor)) then
      cCNPJEmissor := SAT.SATImpressao.SATEmit.CNPJ;

    if EstaVazio(Trim(cAssinatura)) then
      cAssinatura := SAT.SATSWH.Assinatura;

    if (ACBrSAT.Config.ide_tpAmb <> taHomologacao) then
    begin
       if (not ValidarCNPJ(cCNPJSwHouse)) then
         raise Exception.Create('CNPJ Sw.House inválido: '+cCNPJSwHouse);

       if (not ValidarCNPJ(cCNPJEmissor)) then
         raise Exception.Create('CNPJ Emissor inválido: '+cCNPJEmissor);
    end;

    fpCmd.Resposta := ACBrSAT.AssociarAssinatura(cCNPJSwHouse + cCNPJEmissor, cAssinatura);
  end;
end;     

 

[Daniel Simoes]

@Bruno Trevisan, se puder por favor teste com a correção acima...

Outra coisa que notei, é que seu comando está fora da sintaxe (falta uma aspas duplas no parâmetro da Assinatura)

[José M. S. Junior]

Ok vou validar...