Ir para conteúdo
  • Cadastre-se

Fernando Rodrigo

Membros
  • Total de ítens

    482
  • Registro em

  • Última visita

  • Days Won

    3

Posts postados por Fernando Rodrigo

  1. pessoal, alguem ja precisou fazer a pesquisa em uma pasta para saber se o arquivo existe, usando o fileexists.

    Quando o arquivo esta na mesma unidade que não é mapeada a pesquisa vai  normal, mas se o arquivo estiver em uma unidade mapeada tipo 
    \\192.168.0.100\arquivo\foto.jpg, dai ele demora um tempo para pesquisar, por causa da unidade mapeada.

    tem como resolver isso ou é do sistema operacional

  2. fiz um gnre no site deles e gerou um xml diferente do gerado pelo componente, o que observei que no xml que o site gera ele tem umas tag de endereço que o componente não tem e quando envio da o erro abaixo

    segue tambem o xml que gerei pelo site

     

    image.png

    Lote_2023_04_28_21_45.xml

     

  3. pessoal, preciso gerar um pdf de um pedido sem ter que abrir a tela do relatorio, so que estou enviando o codigo normal so que el da erro de access violation, mas gera o pdf normal

     

    ele da o erro quando executo frxRelatorio.PrepareReport

    veja o codigo como estou utilizando

                                                    frxExporta.FileName        := 'c;\pedido.pdf';

                                                    frxExporta.ShowDialog       := False;
                                                    frxExporta.ShowProgress     := False;
                                                    frxExporta.OverwritePrompt  := False;
                                                    frxRelatorio.PrepareReport();
                                                    frxRelatorio.Export(frxExporta);


    ]image.png.552f2f2a1280e8b1a1d7a404161d91e3.png

  4. boa noite pessoal, estou migrando um sistema de um cliente para o nosso sistema e preciso acessar a base de dados dele, so que não encontrei qual o tipo de banco de dados, pq geralmente é um dbf, ou firebird ou sql server, que são as bases mais comuns hoje, so que essa base de dados não tenho nem noção do que é, o cliente não quer entrar em contato com a empresa e pedir informações pq ele ele achando que o pessoal não vai querer passar essas informações, então tenho que encontrar uma maneira de acessar a base de dados

    ele gera vários arquivos tipo

     

    A210-(produtos)Historico-Plus.amp,

     

    todos com essa extensão amp, so que nunca vi esse tipo de extensão

     

    image.thumb.png.532b98902376d715c629e47a9ada3f7b.png

     

    A070-(amplus)Cadastros-Diversos.amp

  5. estou usando a configuração abaixo para mudança de layout do boleto, so que não esta funcionando, so aparece um layout

    a forma de mudar o layout é da forma abaixo ?

    ACBrBoletoFCFortes1.LayOut := lPadrao;
    ACBrBoletoFCFortes1.LayOut := lFatura;
    ACBrBoletoFCFortes1.LayOut := lCarne;
    ACBrBoletoFCFortes1.LayOut := lFatura;
    ACBrBoletoFCFortes1.LayOut := lFaturaDetal;
    ACBrBoletoFCFortes1.LayOut := lFatura;
     

  6. Em 17/02/2022 at 16:05, Fernando Rodrigo disse:

    estou validando o banco safra e encontrei um problema na instrução bancaria

    na linha 716 da unit do safra esta calculando o campo Instrucao1 como 0 não protestar, so que no layout é codigo 3 para não protestar, veja o layout

    C026
    Código para Protesto
    Código adotado pela FEBRABAN para identificar o tipo de prazo a ser considerado para o protesto.
    Domínio:
    '1' = Protestar Dias Corridos
    '2' = Protestar Dias Úteis
    '3' = Não Protestar
    ‘4’ = Protestar Fim Falimentar - Dias Úteis
    ‘5’ = Protestar Fim Falimentar - Dias Corridos
    ‘8’ = Negativação sem Protesto
    '9' = Cancelamento Protesto Automático
    (somente válido p/ CódigoMovimento Remessa = '31' - Descrição C004)

    Sabe se ja tem correção desse problema ?

     

    Linha 716 da unit ACBrBancoSafra.pas

      {Código para Protesto}
        case TipoDiasProtesto of
           diCorridos       : ACodProtesto := '1';
           diUteis          : ACodProtesto := '2';
        else
           ACodProtesto := '0';
        end;

        if ((DataProtesto <> 0) and (DiasDeProtesto > 0)) then
        begin
          if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then
            Instrucao1 := ACodProtesto;
          // Dias para protesto
          sDiasProtesto := PadLeft(IntToStr(DiasDeProtesto), 2, '0');
        end
        else
        begin
          Instrucao1 := '0';  // Não protestar
          SDiasProtesto := '00';
        end;
     

     

    segue arquivo alterado a linha para codigo 3 conforme layout acima

     

    C026
    Código para Protesto
    Código adotado pela FEBRABAN para identificar o tipo de prazo a ser considerado para o protesto.
    Domínio:
    '1' = Protestar Dias Corridos
    '2' = Protestar Dias Úteis
    '3' = Não Protestar
    ‘4’ = Protestar Fim Falimentar - Dias Úteis
    ‘5’ = Protestar Fim Falimentar - Dias Corridos
    ‘8’ = Negativação sem Protesto
    '9' = Cancelamento Protesto Automático
    (somente válido p/ CódigoMovimento Remessa = '31' - Descrição C004)

     

    ACBrBancoSafra.pas

  7. estou validando o banco safra e encontrei um problema na instrução bancaria

    na linha 716 da unit do safra esta calculando o campo Instrucao1 como 0 não protestar, so que no layout é codigo 3 para não protestar, veja o layout

    C026
    Código para Protesto
    Código adotado pela FEBRABAN para identificar o tipo de prazo a ser considerado para o protesto.
    Domínio:
    '1' = Protestar Dias Corridos
    '2' = Protestar Dias Úteis
    '3' = Não Protestar
    ‘4’ = Protestar Fim Falimentar - Dias Úteis
    ‘5’ = Protestar Fim Falimentar - Dias Corridos
    ‘8’ = Negativação sem Protesto
    '9' = Cancelamento Protesto Automático
    (somente válido p/ CódigoMovimento Remessa = '31' - Descrição C004)

    Sabe se ja tem correção desse problema ?

     

    Linha 716 da unit ACBrBancoSafra.pas

      {Código para Protesto}
        case TipoDiasProtesto of
           diCorridos       : ACodProtesto := '1';
           diUteis          : ACodProtesto := '2';
        else
           ACodProtesto := '0';
        end;

        if ((DataProtesto <> 0) and (DiasDeProtesto > 0)) then
        begin
          if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then
            Instrucao1 := ACodProtesto;
          // Dias para protesto
          sDiasProtesto := PadLeft(IntToStr(DiasDeProtesto), 2, '0');
        end
        else
        begin
          Instrucao1 := '0';  // Não protestar
          SDiasProtesto := '00';
        end;
     

     

  8. preciso fazer a leitura do json abaixo, so que quando faço um parse esta dando erro de access violation, estou usando o delphi 2010 e usando esse unit uLkJSON, se alguem puder me ajudar 

    estou enviando um demo com o json no campo memo.

     

    {
        "billing_info": {
            "doc_type": "CPF",
            "doc_number": "05218554111",
            "additional_info": [
                {
                    "type": "DOC_NUMBER",
                    "value": "05218554111"
                },
                {
                    "type": "ZIP_CODE",
                    "value": "73752020"
                },
                {
                    "type": "STREET_NUMBER",
                    "value": "SN"
                },
                {
                    "type": "CITY_NAME",
                    "value": "Planaltina"
                },
                {
                    "type": "DOC_TYPE",
                    "value": "CPF"
                },
                {
                    "type": "STATE_NAME",
                    "value": "Goiás"
                },
                {
                    "type": "NEIGHBORHOOD",
                    "value": "Setor Leste"
                },
                {
                    "type": "FIRST_NAME",
                    "value": "Tainá Figueiredo"
                },
                {
                    "type": "STREET_NAME",
                    "value": "Quadra 2 Mr 2 Casa 32 Setor Leste"
                },
                {
                    "type": "SITE_ID",
                    "value": "MLB"
                },
                {
                    "type": "LAST_NAME",
                    "value": "almeida"
                }
            ]
        }
    }

    Project1.dpr uLkJSON.pas Unit1.dfm Unit1.pas

  9. estou homologando a remessa do Sicred e no site deles de homologação esta retornando um campo que deveria enviar em branco e o acbr esta enviando 000000

     

    campo de data e valor de desconto, como poderia resolver esse problema ? olhei os fontes na função e esta mesmo informando zero caso não tenha nada

     


    function TACBrBancoSicredi.DefineDataDesconto(const ACBrTitulo: TACBrTitulo;
      AFormat: String): String;
    begin
      with ACBrTitulo do
      begin
        if (ValorDesconto > 0) then
        begin
          if (DataDesconto > 0) and (TipoDesconto in [ tdValorFixoAteDataInformada, tdPercentualAteDataInformada]) then
            Result := FormatDateTime(AFormat, DataDesconto)
          else
            Result := PadRight('', Length(AFormat), '0');
        end
        else
          Result := PadRight('', Length(AFormat), '0');

      end;

    end;

     

     

    image.thumb.png.26ed813eb8c58cf9e2c3490351e6ca19.png

    69144206.crm

  10. 21 minutos atrás, Juliomar Marchetti disse:

    Creio que sua dúvida é em integrar a questão de seus cadastros pedidos e etc com o bling e não usar SAT ou emissão de documentos certo?

    se for isso não temos nada

    fazer publicação de produtos nos sites

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