Ir para conteúdo
  • Cadastre-se

Datacaixa

Membros Pro
  • Total de ítens

    206
  • Registro em

  • Última visita

Posts postados por Datacaixa

  1. Boa tarde! Tenho o código abaixo para enviar a NF-e e gostaria de adicionar uma tratativa caso a SEFAZ retornasse Consumo Indevido, para que dessa forma eu bloquearia o usuário de alterar a nota e ficaria com status "Enviando" para o usuário tentar novamente mais tarde.
    Como posso saber que o retorno foi Consumo Indevido da SEFAZ? Faria sentido tentar consultar/enviar essa nota mais tarde?

     

      try
        dmACBr.ACBrNFe1.Enviar('1', False, False);
    
        pAtualizarTela;
    
        except on E : Exception do
        begin
        if E.Message <> '' then
         iMessageBox(handle,pchar( E.Message ),'Rejeição',MB_OK+MB_ICONWARNING)
        else
         iMessageBox(handle,pchar( E.Message + #13 + 'Sem retorno do Método: Enviar'+#13+'Experimente colocar SSL3 e TLS desmarcado no IE.' ),'Rejeição',MB_OK+MB_ICONWARNING);
    
        TVENDAS.Edit;
        if copy(E.Message,1,14) <> 'O tempo limite' then
         TVENDASSITUACAO.AsString        := 'Rejeitada';
    
        TVENDASMOTIVO_REJEICAO.AsString := Copy(E.Message,1,1500);
        TVENDAS.Post;
        dmConexao.IBTCONEXAO.CommitRetaining;

     

  2. Boa tarde!

    Eu provoquei esse erro de propósito não informando o código de tributação do serviço, o motivo disso é para verificar a forma como o erro está sendo retornado, o lote pode ter sido recepcionado com sucesso, porém a nota não estaria "autorizada" pois foi gerado esse erro.  Esse tipo de comportamento é o que acontece quando se faz uma NF-e, um item da nota com alguma informação incorreta ou faltante resulta em um nota "Rejeitada" certo?

    No caso da NFS-e o comportamento é diferente, pelo que entendi teria que analisar todos os tipos de retorno para ter uma certeza sobre o status da nota, ou seja, teria que tratar todos os retornos como na procedure "ChecaResposta" é isso mesmo? Eu não posso considerar somente a propriedade AcbrNFSex1.Emite.Sucesso como válida para identificar se a mesma está como "Autorizada" ou "Rejeitada".

  3. Boa tarde!

    Mas esse número de protocolo não corresponde aos demais já gerados, está bem diferente das demais notas que foram emitidas com sucesso.

    This XML file does not appear to have any style information associated with it. The document tree is shown below.
    <ns3:ConsultarLoteRpsEnvio xmlns:ns3="http://www.ginfes.com.br/servico_consultar_lote_rps_envio_v03.xsd" xmlns:ns4="http://www.ginfes.com.br/tipos_v03.xsd">
    <ns3:Prestador>
    <ns4:Cnpj>17098110000130</ns4:Cnpj>
    <ns4:InscricaoMunicipal>57332</ns4:InscricaoMunicipal>
    </ns3:Prestador>
    <ns3:Protocolo>554195555</ns3:Protocolo>
    <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
    <SignedInfo>
    <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
    <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
    <Reference URI="">
    <Transforms>
    <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
    <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
    </Transforms>
    <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
    <DigestValue>HnDDaarvH+1Pm3Lb9MALskx+vjY=</DigestValue>
    </Reference>
    </SignedInfo>
    <SignatureValue>XWZ0CXzkk/dv98r9GPd8AveFEWxVUNdiw2ud1/4uNdrfsqwRWPFEKiAl+YlcyuICRp5mRLO6uI9mk5x50NFTvsjnV1gsEHNd2LZScYzeM/rXOsjr4+LvkC3PL8v//1bO5PZfzhR3lRUYsRv/fRNELponiD6YlaTcUlAG3SZFCRaM5d9rsKFVbYzqlchBAhxD+zryfsvMOcxV43Ub+x6/3cEfScIJPi+RhJ1FZ1WDYmdavn1/ggrNCZxfQws8yf0t+VdTAsRUqd4e4ZWV+vT4PEQZAeWutMfO24LsQWGYFppzEE11/sjlVGCv1aqV3icYTusA0OuRiD9KNc68adznmA==</SignatureValue>
    <KeyInfo>
    <X509Data>
    <X509Certificate>MIIHszCCBZugAwIBAgIKFjG7VlV5fuPjqTANBgkqhkiG9w0BAQsFADBbMQswCQYDVQQGEwJCUjEWMBQGA1UECwwNQUMgU3luZ3VsYXJJRDETMBEGA1UECgwKSUNQLUJyYXNpbDEfMB0GA1UEAwwWQUMgU3luZ3VsYXJJRCBNdWx0aXBsYTAeFw0yMzExMTcxNjQxMjNaFw0yNDExMTYxNjQxMjNaMIGmMQswCQYDVQQGEwJCUjEZMBcGA1UECwwQVmlkZW9jb25mZXJlbmNpYTEXMBUGA1UECwwONDI5MzIzNTQwMDAxMTQxHzAdBgNVBAsMFkFDIFN5bmd1bGFySUQgTXVsdGlwbGExEzARBgNVBAoMCklDUC1CcmFzaWwxLTArBgNVBAMMJFdBR05FUiBNT1JFTk8gQkFMQklOTzoxNzA5ODExMDAwMDEzMDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBANB8+99kV59LEKHX2PkeqV/6YGc2ZCV4al1TCt2H2xD7QB5IBYpYr8gbsVWgaeF01PJEmaZrQ6mHlPbtkyCcqrAXmDdxOlNYz8vKfPq+8FZ9o9BhrnqJQ3SdZJCk/n0rKY4X3m0go2vKle5+0J0h185O50bKjJ559B6ANuU8hgLoRV4wdACSWsJKAbP8f4bJ02N+fL+N/8ux7nbtdS00f68M2p5an/IpUSxm5WKS5Sp+uARG3e/22kqpQUta0JBnkbHrAqUkJAWa72wZCjY4qA2p4qGiRXQ6v3F/74o80FZuDLn/Ej+cY+5wLUf3t88MaSnNVxry8BcwHmoVj9oMjGECAwEAAaOCAyswggMnMA4GA1UdDwEB/wQEAwIF4DAdBgNVHSUEFjAUBggrBgEFBQcDBAYIKwYBBQUHAwIwCQYDVR0TBAIwADAfBgNVHSMEGDAWgBST4f9+HeX15E3hOWKLIWmV5q9yFjAdBgNVHQ4EFgQUN2fWdDbfZXe8N0OFYysRdFXp/z4wfwYIKwYBBQUHAQEEczBxMG8GCCsGAQUFBzAChmNodHRwOi8vc3luZ3VsYXJpZC5jb20uYnIvcmVwb3NpdG9yaW8vYWMtc3luZ3VsYXJpZC1tdWx0aXBsYS9jZXJ0aWZpY2Fkb3MvYWMtc3luZ3VsYXJpZC1tdWx0aXBsYS5wN2IwgYIGA1UdIAR7MHkwdwYHYEwBAgGBBTBsMGoGCCsGAQUFBwIBFl5odHRwOi8vc3luZ3VsYXJpZC5jb20uYnIvcmVwb3NpdG9yaW8vYWMtc3luZ3VsYXJpZC1tdWx0aXBsYS9kcGMvZHBjLWFjLXN5bmd1bGFySUQtbXVsdGlwbGEucGRmMIG/BgNVHREEgbcwgbSgIAYFYEwBAwKgFwQVV0FHTkVSIE1PUkVOTyBCQUxCSU5PoBkGBWBMAQMDoBAEDjE3MDk4MTEwMDAwMTMwoEIGBWBMAQMEoDkENzExMDQxOTgyMjk1ODM5OTg4NTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDCgFwYFYEwBAwegDgQMMDAwMDAwMDAwMDAwgRh3YWduZXJtb3Jlbm9AaG90bWFpbC5jb20wgeIGA1UdHwSB2jCB1zBvoG2ga4ZpaHR0cDovL2ljcC1icmFzaWwuc3luZ3VsYXJpZC5jb20uYnIvcmVwb3NpdG9yaW8vYWMtc3luZ3VsYXJpZC1tdWx0aXBsYS9sY3IvbGNyLWFjLXN5bmd1bGFyaWQtbXVsdGlwbGEuY3JsMGSgYqBghl5odHRwOi8vc3luZ3VsYXJpZC5jb20uYnIvcmVwb3NpdG9yaW8vYWMtc3luZ3VsYXJpZC1tdWx0aXBsYS9sY3IvbGNyLWFjLXN5bmd1bGFyaWQtbXVsdGlwbGEuY3JsMA0GCSqGSIb3DQEBCwUAA4ICAQBJi3JnW0gkWHP2XiFtLgStuwtrr/40PbkssR8oZczoZjwRkSQ6ASfvz7jgbmG0x3awe62bT1taDAxyU5Lbc702/UPgBHku4OfULFv9FSmA7XLhL/W4G+7qB0k+t6mzb7f65kEiEPn9x9s8CrRRvbeH3B1ZD8BmsSXnE2NqLWpZ+XOnYbykjkYsB8U+5KmfnZ/8IG5YA+ZHlyyLWgEhyHQ7ny1GPszEdW7XHJ9MOMy7IIfBCiQbYfjiXenbX3YMh3aEdx6HGL2HeTZD3zUrXZR+Y9rAyy5JFNV96hyoiBAeSA2p3hl3qTC2ACJi4yrPoDhkEJKj1C6pNLRxM1Y8aHHoWSwpVzPcik6nt2MbyFLBAU/juqAPlAj10Mp6kwLzqL2sZNNMgsZaBvldacS8bvbq5f2QoV7g8sxWCk30QC7H8K7Ng0uyrFqvFhk+3+OZoTaYTSBF2bBjzwb/Js0SwrJmpc4VOor3YzFITyqL4F8kk1acMnBJQf01IP8EuyrLHpEIuOz2uk7VYaWECtcZB+w55xLWxU5PSCxEKyjexgqSeH9WUWFg3vH/139+ljetHvtaMlnmyXEYEni6IFdzzLHu+1UTyWOV+dRkQMs6dKLYjOfxtpAQiEhLTQxfNpdNIe24+xEETi6pc6s6BvEgVWg8jPdVSnmubyWMO8Gyl3+WNg==</X509Certificate>
    </X509Data>
    </KeyInfo>
    </Signature>
    </ns3:ConsultarLoteRpsEnvio>

    obs: não consigo anexar arquivos, poderia deixar pelo menos 1MB de tamanho de arquivo?

     

  4. Bom dia!

    O erro ainda persiste

    ------------------------------
    Versão OpenSSL
    OpenSSL 1.1.1j  16 Feb 2021
    01.01.01.0AF
    C:\WINDOWS\SYSTEM32\libcrypto-1_1.dll
    C:\WINDOWS\SYSTEM32\libssl-1_1.dll
    ------------------------------
    Requisição
    Ambiente : 1
    Cidade   : Guaruja/SP
    Provedor : Ginfes Versão: 1.00
    Data/Hora: 26/02/2024 11:36:30
     
    Método Executado: Enviar Lote Assíncrono
     
    Parâmetros de Envio
    Numero do Lote: 611
     
    Parâmetros de Retorno
    Data de Envio : 26/02/2024
    Numero do Prot: 554180437
    Numero da Nota: 
    Link          : 
    Código Verif. : 
    Sucesso       : True
     
     
    Método Executado: Consultar a Situacao
     
    Parâmetros de Envio
    Numero do Prot: 554180437
    Numero do Lote: 611
     
    Parâmetros de Retorno
    Situação Lote : 3
    Descrição Sit : Lote Processado com Erro
    Sucesso       : True
     
     
    Método Executado: Consultar o Lote de Rps
     
    Parâmetros de Envio
    Numero do Prot: 554180437
    Numero do Lote: 
     
    Parâmetros de Retorno
    Situação Lote : 3
    ID Nota       : 
    Sucesso       : False
     
    Erro(s):
    Código  : E30
    Mensagem: Item da lista de serviço inexistente
    Correção: Consulte a legislação vigente para saber o item da lista de serviço que deverá ser informado neste campo.
    ---------
     
    NFS-e Numero....: 611
    Cod. Verificacao: 
    Prestador.......: CONECTA TECNOLOGIA
    Tomador.........: DATACAIXA TECNOLOGIA LTDA

    Analisando o log gerado pela procedure ChecarResposta no momento de ler o metodoRecepcionar a propriedade Emite.Sucesso está igual a "True" sendo que teve um erro na emissão, porém acredito que o certo seria que fosse "False" o entendimento seria esse mesmo?

    E neste mesmo momento a propriedade Emite.Erros.Count neste momento está igual a 0.

    A propriedade Emite.Erros.Count com o erro retornado pelo Provedor só é adicionado na execução do "ACBrNFSeX1.Provider.ConfigGeral.ConsultaLote" e aí sim o Erros.Count é incrementado.

    Sendo assim, não basta eu usar somente a propriedade ACBrNFSeX1.WebService.Emite.Erros pois no primeiro momento ela não estará preenchida corretamente.

  5. Existe alguma condição ou tratativa no ACBr para Zerar os campos abaixo?

         Produto.Imposto.PIS.vBC         := TVENDAS_ITENSBASE_PIS.AsCurrency;
         Produto.Imposto.PIS.pPIS        := TVENDAS_ITENSPIS.AsCurrency;
         Produto.Imposto.PIS.vPIS        := TVENDAS_ITENSVALOR_PIS.AsCurrency;

    Em alguns casos mesmo informando o valor o ACBr informa 0 (zero) no XML.
     

  6. Olá pessoal, tudo bem?

    Gostaria de saber como imprimir o Saldo Disponível do VR/Sodexo no comprovante do TEF, já verificamos e o saldo está vindo no log (anexo), porém, não está saindo na impressão.

    De modo resumido a minha rotina é a seguinte:

    //basicamente a cada transação verifico se o GP está iniciado
    if not (ACBrTEFD1.Inicializado(TACBrTEFDTipo(gpPayGoWeb))) then
    begin
      MessageBox(Handle, 'O TEF não foi inicializado corretamente!', 'TEF', MB_OK + MB_ICONWARNING);
      AbortaOperacao;
    end;
    
    //por ser transação com voucher passo o parâmetro 04
    ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE] := '04';
    
    //realizo a transação com CRT
    Status := ACBrTEFD1.CRT(50.00, '04', '123456');
    
    //capturo e armazeno no BD o retorno em ACBrTEFD1.Resp
    //aqui é possível ver que salvo os campos ImagemComprovante1aVia.Text e ImagemComprovante2aVia.Text
    Qry.FieldByName('NSU').AsString := ACBrTEFD1.Resp.NSU;
    Qry.FieldByName('NSU_HOST').AsString := ACBrTEFD1.Resp.NSU;
    Qry.FieldByName('DATA').AsDateTime := ACBrTEFD1.Resp.DataHoraTransacaoLocal;
    Qry.FieldByName('VALOR').AsFloat := ACBrTEFD1.Resp.ValorTotal;
    Qry.FieldByName('COMPROVANTE1VIA').AsString := ACBrTEFD1.Resp.ImagemComprovante1aVia.Text;
    Qry.FieldByName('COMPROVANTE2VIA').AsString := ACBrTEFD1.Resp.ImagemComprovante2aVia.Text;
    
    //faço validações finais
    if ValorRecebido >= ValorTotal then
      ACBrTEFD1.ConfirmarTransacoesPendentes(True); 
      
    GerarVenda;  
    ImprimirVenda;
      
    //e por fim, imprimo as transações na finalização da venda dessa maneira
    if TransacaoTefOk then
    begin
      ImprimirComprovante(Qry.FieldByName('COMPROVANTE1VIA').AsString);
      ImprimirComprovante(Qry.FieldByName('COMPROVANTE2VIA').AsString);
    end;

    Pelo que observei no log, parece que são gerados 3 comprovantes: 1 - via cliente, 2 - via estabelecimento, 3 - via só com saldo.  Será que o problema é esse?
    Eu queria poder ativar a função de VR ou Sodexo no meu PDC de teste para conseguir simular e entender melhor, entretanto, foi me passado que infelizmente essa ativação não é possível.

     

    comms.rar

  7. Boa tarde!

    Estou com a seguinte dúvida, fiz a transmissão de um RPS e ao receber o retorno no componente do Acbr a propriedade AcbrNFSex.WebService.Emite.Sucesso está retornando com o valor "True" sendo que a nota não foi gerada na prefeitura, ao também percorrer as propriedades do componente AcbrNFSeX.NotasFiscais[0].NFSe.Numero está sendo retornado o próprio número do RPS mesmo a nota não sendo gerada/criada, sendo assim, gostaria de saber em qual propriedade eu poderia "confirmar" que a nota realmente foi emitida.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.