Fernando Rodrigo

pessoal, preciso fazer a importação de um campo memo, onde o banco feito feito em foxpro. Arquivo com extensão fpt, olhei na internet são arquivos tipo Memo que é gerado pelo FoxPro, so que preciso acessar essas informações para fazer a importação para meu sistema. Se alguem puder me dar um help para acessar as informações, vou ficar muito grato PRODUTOS.zip

@Renato Rubinho eu que coloquei como exemplo, mas é gerado em uma pasta separada com todos os direitos do usuário, eu uso o TInject para enviar as mensagens no whatzap, se eu fizer fora do componente funciona normal, ja criei um form so para isso,, mas mesmo assim continua dando a mensagem de erro, mesmo colocando um exeption, ele continua com o mesmo erro

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); ]

agora que ta o problema pq cobol tem várias versões dele, vou ver se acho alguma coisa para exportar esses dados, muito obrigado @BigWings

mas o Adobe não é somente para edição de fotos, pq esse arquivo que anexei e um arquivo do banco de dados do cliente

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 A070-(amplus)Cadastros-Diversos.amp

vou fazer, pq tenho clientes que ja estão pedindo essa integração

bom dia pessoal, um cliente me solicitou a integração com a rede ancora para envio dos xml, que é uma integração que eles passaram para os clientes dessa rede para armazenamento de xml alguem do grupo ja fez essa integração para dar um help eles me passaram o link do manual mas não entendi bem como faz https://staging.redeancora.com.br/integrador-ancora/api/v1/swagger-ui/index.html

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;

boa noite pessoal, alguém ja desenvolveu algo para coletor de dados para estoque ? qual aparelho usar ? se alguém ja desenvolveu poderia dar uma ideia de desenvolvimento

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

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;

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

vou enviar dessa forma para ver se tem rejeição, qualquer coisa abro novamente um tópico

bom dia, no manual realmente não tem nada falando, somente quando vc faz a validação no site deles que da esse erro.

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; 69144206.crm

fazer publicação de produtos nos sites

caros amigos, com a pandemia o mercado hoje tem grande necessidade de integração com Marketing place. O projeto ACBR tem projetos para fazer essa integração, talvez com Bling ou outra ferramenta ?

posso usar sim @Victor H. Gonzales - Panda a api sem problema, so que quando envio esta com essa mensagem de erro abaixo, seria alguma configuração ?

u coloquei cobBancoDoBrasilAPI e deu o erro abaixo depois mudei para cobBancoDoBrasilWS e não deu erro, mas gerou um xml com alguns erro que irei checar para ver o que é <ns0:textoMensagemErro>Informe valor ou percentual, conforme o Tipo de Juro. </ns0:textoMensagemErro>

foi a primeira coisa que fiz, peguei o DEMO, informei os dados das chaves que cadastrei no banco e não deu certo, depois usei as chaves que esta no DEMO no arquivo txt, tambem não deu certo aparece a mensagem acima, estou fazendo a atualização dos fontes do zero para ver se resolve.

Preciso começar a implementar o boleto on-line para o BB, e seguindo as orientações do @José M. S. Junior, fiz as configurações so que não estou conseguindo fazer a utilização, gerei as chaves no site do BB como homologação so que quando envio da a mensagem de erro abaixo. So preciso que me ajude a fazer um somente para entender como é feito, se alguem tiver um DEMO funcionando para me passar as orientações, vou ficar muito grato. //Dados para Homologaçao ACBrBoleto1.Cedente.CedenteWS.ClientID:= 'eyJpZCI6IjgwNDNiNTMtZjQ5Mi00YyIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxfQ'; ACBrBoleto1.Cedente.CedenteWS.ClientSecret:= 'eyJpZCI6IjBjZDFlMGQtN2UyNC00MGQyLWI0YSIsImNvZGlnb1B1YmxpY2Fkb3IiOjEwOSwiY29kaWdvU29mdHdhcmUiOjEsInNlcXVlbmNpYWxJbnN0YWxhY2FvIjoxLCJzZXF1ZW5jaWFsQ3JlZGVuY2lhbCI6MX0'; ACBrBoleto1.Cedente.CedenteWS.Scope:= 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser:='J1234567'; // //Campos devem ser preenchidos conforme dados do Banco Título ex campos: ACBrBoleto1.Cedente.CodigoCedente := '4863177'; ACBrBoleto1.Cedente.Convenio := '1014051'; ACBrBoleto1.Cedente.Modalidade := '19'; Carteira := '17'; EspecieDoc := '99'; ------------------------------------------------------------------------------------ //Configuracoes/WebService SSLHTTPLib: httpWinHTTP SSCryptLib: cryWinCry SSLType: TLS 1.2 TimeOut: 30000 UseCertificateHTTP: False versao:= 1.2

boa noite pessoal, isso é complicado mesmo, algum tempo atrás eu contratei um funcionário para ser gerente da nossa empresa, passou-se alguns anos, ele pediu para sair, não levou os fontes, mas montou uma empresa que desenvolve o mesmo sistema que a nossa empresa, e como ele sabia de toda a nossa carteira de cliente ele foi atrás deles oferecendo o sistema pela metade do preço. Fora que desenvolveu um sistema idêntico ao nosso, so que para web. Outra coisa, esse funcionário ele ja estava montando o sistema dele baseado no nosso ja fazia bastante tempo, so aprendendo sobre o funcionamento e as rotinas da empresa. Com software também seria a mesma coisa, vc contrata um funcionário ele aprende depois vira seu concorrente. mas mercado tem para todo mundo.

como vc fez , teria como vc postar os codigos ?

bom dia, o mesmo problema, ate parei de mexer no programa , mas tenho que começar tudo novamente