Ir para conteúdo
  • Cadastre-se

Antonio Gomes

Membros
  • Total de ítens

    644
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Antonio Gomes

  1. Se foi eu lhe peço desculpas.

    águas passadas.. esquece.

    ----------

    De fato, se arrumar ali, resolve o problema :)) mas...

    Pois, o fonte tem flag, de diferente de zero nos testes... há alguns casos, que testam > 0, é ate plausivel, dado, que esses locais, um vetor não tera -1 como elemento.

    Ou nem retornar o ZZ, mas vazio, alguem botou aquele -1 ali, pensando em não ter o elemento.

    Se alguem botou pensando nao achar a UF, logo, a correção, deve ser onde está o ZZ, se for -1, manter vazio ao inves do ZZ.

    debata com a equipe.

  2. Como posso chegar no DPS / NFS-e cancelado via portal, para que seja sincronizado com o sistema:?

    Explicando, nos meus testes, cancelei varias notas no site, porém, ao acionar a consulta: ACBrNFSe1.ConsultarNFSePorChave(ChaveNFSeNacional), em  TNFSeConsultaNFSeResponse, não apareceu a informação da data de cancelamento, assim como ocorre nos provedores locais hoje.

    Qual comando poderia usar para receber a dataCanc maior que zero ?

    Grato.

  3. pdf vc salva assim:

    if ChaveNFSeNacional <> '' then
              begin
                FuncNFSeX.ACBrNFSe1.ObterDANFSE(ChaveNFSeNacional);

                var
                  ConsultaNFSe: TNFSeConsultaNFSeResponse;

                ConsultaNFSe := FuncNFSeX.ACBrNFSe1.WebService.ConsultaNFSe;

                if ConsultaNFSe <> nil then
                begin

     // pdf aqui ConsultaNFSe.ArquivoRetorno - passa para tstream, e salva no banco, essa funcao, se tiver parametrizada, salva no seu pc tambem


                  TCaixasDeDialogo.Informacao(ConsultaNFSe.ArquivoRetorno);
                end;
              end;

     

    se tiver nfse gerada, vem o pdf

  4. 4 minutos atrás, Antonio Gomes disse:

    voce deve colocar o numero do banco antes de pedir impressao, olha

      if Banco.Numero = 0 then  // bota 77 aqui no TACBrBoleto
          raise Exception.Create( ACBrStr('Banco não definido, impossivel listar boleto') );

    Sugestão:

     with AACBrBoleto do
      begin
        Banco.TipoCobranca := AACBrBoleto.GetTipoCobranca(
          ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsInteger  {077},
          ADataSetConfigServicoBanco.FieldByName('CARTEIRA_SER').AsString  {112 - carteira da sua conta} );

    Quando atribuir em TipoCobranca, acionará o SetTipoCobranca, que cria o objeto, que coloca o banco correto...


    .. demais configuracoes

    • Curtir 1
  5. Pois é Italo, alem dessa falha do ZZ, vi que está relacionado o erro, com aquele erro da mensagem seguinte que passei, do "Exportacao de servico", pelo fato da ordem ser inversa, logo, passa pedir dados do pais.

    A unit eu fiz gambia, pq precisava testar mais coisas.

    Agora, Antonio Gomes disse:

    Pois é Italo, alem dessa falha do ZZ, vi que está relacionado o erro, com aquele erro da mensagem seguinte que passei, do "Exportacao de servico", pelo fato da ordem ser inversa, logo, passa pedir dados do pais.

    A unit eu fiz gambia, pq precisaPadraoNacional.LerXml.pasva testar mais coisas.

    faltou a unit o que fiz, a direita na imagem

    image.thumb.png.2875d511ebd7b30fab552996cfa1431a.png

  6. Pois é, eu pensei dar um de Katia cega, e colocar imunidade, para sair no site da nfse certo no pdf, mando imunidade, para reconhecer certo como "Não incidencia". Que alias, no MEI, tenho enviado o "Não incidencia", nem sei se tá certo também, pelo demo, manda operação 1, por isso não gerou aquele erro anterior, da exportação.

  7. @Italo Giurizzato Junior

    Solucao: Inverter essas funcoes para isso:

    Tem como corrigir ?

     


    function tribISSQNToStr(const t: TtribISSQN): string;
    begin
      Result := EnumeradoToStr(t,
        ['1', '2', '3', '4'],
        [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]);
    end;

    function StrTotribISSQN(out ok: boolean; const s: string): TtribISSQN;
    begin
      Result := StrToEnumerado(ok, s,
        ['1', '2', '3', '4'],
        [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]);
    end;

     

  8. Olá, pelo manual, o campo tribISSQN segue a ordem: 

    Tributação do ISSQN sobre o serviço prestado:

    1 - Operação tributável;
    2 - Imunidade
    3 - Exportação de serviço;
    4 - Não Incidência;

    No aCBR unit ACBrNFSeXConversao

    function tribISSQNToStr(const t: TtribISSQN): string;
    begin
      result := EnumeradoToStr(t,
                               ['1', '2', '3', '4'],
                [tiOperacaoTributavel, tiExportacao, tiNaoIncidencia, tiImunidade]);
    end;

    Com isso, ao gerar o xml, esta indo como exportacao, botei na nota, nao incidencia.

    image.png.87dda89fa057b2083cd40bf753159fe2.png

  9. 3 horas atrás, Antonio Gomes disse:

    MEI, Padrao nacional, empresa de minas, para minas.

    Em uma emissão de empresa mei, via sistema, ocorre essa falha:

    "E0330-É obrigatório prestar informações de todos os campos relativos ao comércio exterior para as situações de exportação de serviços., X203-Não foi retornado nenhuma NFSe."

    Alguém que já tenha passado por isso, os paises e cidade estão tudo dentro do brasil.

    Não é servico no exterior, cidades de MG, pais 1058.

    Falha ocorre ao tentar transmitir a DPS.

    DPS gerada pelo sistema:

    <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00">
        <infDPS Id="DPS316990123382041700015000001000000000000001">
            <tpAmb>1</tpAmb>
            <dhEmi>2023-09-05T00:00:00-03:00</dhEmi>
            <verAplic>Sis_2.23.8.30</verAplic>
            <serie>1</serie>
            <nDPS>1</nDPS>
            <dCompet>2023-09-04</dCompet>
            <tpEmit>1</tpEmit>
            <cLocEmi>3169901</cLocEmi>
            <prest>
                <CNPJ>000000000000</CNPJ>
                <IM>00000</IM>
                <xNome>empresa</xNome>
                <end>
                    <endNac>
                        <cMun>3169901</cMun>
                        <CEP>36507000</CEP>
                    </endNac>
                    <xLgr>R. xxx</xLgr>
                    <nro>00093</nro>
                    <xBairro>bairro do prestador</xBairro>
                </end>
                <fone>00000000</fone>
                <email>[email protected]</email>
                <regTrib>
                    <opSimpNac>2</opSimpNac>
                    <regEspTrib/>
                </regTrib>
            </prest>
            <toma>
                <CNPJ>00000000000000</CNPJ>
                <xNome>cliente</xNome>
                <end>
                    <endNac>
                        <cMun>3156304</cMun>
                        <CEP>36510000</CEP>
                    </endNac>
                    <xLgr>AV x</xLgr>
                    <nro>10</nro>
                    <xBairro>bairro</xBairro>
                </end>
                <fone>32000000000</fone>
                <email>[email protected]</email>
            </toma>
            <serv>
                <locPrest>
                    <cLocPrestacao>3169901</cLocPrestacao>
                </locPrest>
                <cServ>
                    <cTribNac>140201</cTribNac>
                    <xDescServ>assistencia tecnica</xDescServ>
                    <cNBS>115013000</cNBS>
                </cServ>
            </serv>
            <valores>
                <vServPrest>
                    <vServ>390.60</vServ>
                </vServPrest>
                <trib>
                    <tribMun>
                        <tribISSQN>1</tribISSQN>
                        <tpRetISSQN>1</tpRetISSQN>
                    </tribMun>
                    <totTrib>
                        <indTotTrib>0</indTotTrib>
                    </totTrib>
                </trib>
            </valores>
        </infDPS>
    </DPS>

    Grato por uma dica qualquer.

    Bug encontrado:

    Ao dar loadfromfile no arquivo de DPS, o campo Servico.CodigoPais, vem com valor -1, ao inves de zero, fazendo com que coloque um ZZ no xml de envio.

    bug nessa funcao:

    function TNFSeW_PadraoNacional.GerarLocalPrestacao: TACBrXmlNode;
    begin
      Result := CreateElement('locPrest');

      Result.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 0,
                                                 NFSe.Servico.CodigoMunicipio, ''));

      if (NFSe.Servico.CodigoPais <> 0) and (NFSe.Servico.CodigoPais <> 1058) then
        Result.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 0,
                              CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), ''));
    end;

    quando vem NFSe.Servico.CodigoPais = -1, CodIBGEPaisToSiglaISO2 retorna: 'ZZ'

     

    @Italo Giurizzato Junior

     

    Olha se pode ser corrigido com isso?
    unit PadraoNacional.LerXml; 

    Linha 904

    procedure TNFSeR_PadraoNacional.LerLocalPrestacao(const ANode: TACBrXmlNode);
    var
      AuxNode: TACBrXmlNode;
    begin
      AuxNode := ANode.Childrens.FindAnyNs('locPrest');

      if AuxNode <> nil then
      begin
        with NFSe.Servico do
        begin
          CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('cLocPrestacao'), tcStr);
          CodigoPais := SiglaISO2ToCodIBGEPais(ObterConteudo(AuxNode.Childrens.FindAnyNs('cPaisPrestacao'), tcStr));
          if CodigoPais < 0 then //// aqui
            CodigoPais := 0; // aqui
        end;
      end;
    end;

  10. MEI, Padrao nacional, empresa de minas, para minas.

    Em uma emissão de empresa mei, via sistema, ocorre essa falha:

    "E0330-É obrigatório prestar informações de todos os campos relativos ao comércio exterior para as situações de exportação de serviços., X203-Não foi retornado nenhuma NFSe."

    Alguém que já tenha passado por isso, os paises e cidade estão tudo dentro do brasil.

    Não é servico no exterior, cidades de MG, pais 1058.

    Falha ocorre ao tentar transmitir a DPS.

    DPS gerada pelo sistema:

    <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00">
        <infDPS Id="DPS316990123382041700015000001000000000000001">
            <tpAmb>1</tpAmb>
            <dhEmi>2023-09-05T00:00:00-03:00</dhEmi>
            <verAplic>Sis_2.23.8.30</verAplic>
            <serie>1</serie>
            <nDPS>1</nDPS>
            <dCompet>2023-09-04</dCompet>
            <tpEmit>1</tpEmit>
            <cLocEmi>3169901</cLocEmi>
            <prest>
                <CNPJ>000000000000</CNPJ>
                <IM>00000</IM>
                <xNome>empresa</xNome>
                <end>
                    <endNac>
                        <cMun>3169901</cMun>
                        <CEP>36507000</CEP>
                    </endNac>
                    <xLgr>R. xxx</xLgr>
                    <nro>00093</nro>
                    <xBairro>bairro do prestador</xBairro>
                </end>
                <fone>00000000</fone>
                <email>[email protected]</email>
                <regTrib>
                    <opSimpNac>2</opSimpNac>
                    <regEspTrib/>
                </regTrib>
            </prest>
            <toma>
                <CNPJ>00000000000000</CNPJ>
                <xNome>cliente</xNome>
                <end>
                    <endNac>
                        <cMun>3156304</cMun>
                        <CEP>36510000</CEP>
                    </endNac>
                    <xLgr>AV x</xLgr>
                    <nro>10</nro>
                    <xBairro>bairro</xBairro>
                </end>
                <fone>32000000000</fone>
                <email>[email protected]</email>
            </toma>
            <serv>
                <locPrest>
                    <cLocPrestacao>3169901</cLocPrestacao>
                </locPrest>
                <cServ>
                    <cTribNac>140201</cTribNac>
                    <xDescServ>assistencia tecnica</xDescServ>
                    <cNBS>115013000</cNBS>
                </cServ>
            </serv>
            <valores>
                <vServPrest>
                    <vServ>390.60</vServ>
                </vServPrest>
                <trib>
                    <tribMun>
                        <tribISSQN>1</tribISSQN>
                        <tpRetISSQN>1</tpRetISSQN>
                    </tribMun>
                    <totTrib>
                        <indTotTrib>0</indTotTrib>
                    </totTrib>
                </trib>
            </valores>
        </infDPS>
    </DPS>

    Grato por uma dica qualquer.

  11. Mano: Explore o componente... linha digitável

    DVBoleto             := ACBrBoleto.Banco.CalcularDigitoVerificador(ACBrTitulo);
                CodigoBarras         := ACBrBoleto.Banco.MontarCodigoBarras(ACBrTitulo);
                LinhaDigitavel       := ACBrBoleto.Banco.MontarLinhaDigitavel(CodigoBarras, ACBrTitulo);
                NossoNumeroFormatado := ACBrBoleto.Banco.BancoClass.MontarCampoNossoNumero(ACBrTitulo);

    • Curtir 1
  12. não tem problema no banco caixa, voce deve ter enviado é as coisas errada, esse banco é nojentinho... igual BB

    sugiro, ler isso: Na sua pasta do componente:
    \ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf

    Posta como vc colocou os dados no componente.

    • Curtir 2
  13. 4 horas atrás, Kiko Fernandes disse:

     

    Bom dia!
    Veja o link abaixo na informação a partir do grupo que define para o serviço do gmail.

     

    Caso ainda tenha ficado dúvidas, leia a partir do item 7 - 'Senhas de App' do link abaixo:
    https://tecgesco.com/blog/permissao-de-envio-de-e-mail-gmail-por-aplicativos-de-terceiros/


     

    Alem disso, tem a autenticação oauth, se não quiser fazer tudo isso. Nisso, seu aplicativo ficará como fica o thunderbird
    Exemplo:
    https://github.com/geoffsmith82/GmailAuthSMTP

     

×
×
  • 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.