Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Werner dos Santos Souza

Membros
  • Content Count

    17
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Werner dos Santos Souza

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. No meu caso o erro persiste, no inicio funciona, mas depois da erro, atualizei os fontes da ACBR mas persiste o erro.
  2. Bom dia. Estudando o caso, pediram para trocar a forma de chamar. Onde uso HTTPGet , trocar ou (https.get(url[, options][, callback])) Alguém já testou ?
  3. Também estou com este problema, mas já tentei várias opções, ainda não acertei.
  4. Erro no momento de definir o banco, inclui a lista no banco de dados, mas na hora de definir da o seguinte erro: Definição : ACBrBoleto1.Banco.TipoCobranca := tbContasCorrentes.FieldByName('Banco_Ref_Boleto').AsString ; [dcc32 Error] uBoletos.pas(445): E2010 Incompatible types: 'TACBrTipoCobranca' and 'string' ACBrBoleto1.Banco.TipoCobranca := 6 ; [dcc32 Error] uBoletos.pas(445): E2010 Incompatible types: 'TACBrTipoCobranca' and 'Extended' Como proceder ? Inclui os nomes na base de dados, tanto o nome "co
  5. No caso onde defino o banco, emito Itau e Bradesco, mas só sai banco do Brasil.
  6. Como posso saber se tem alguma atualização do componente, se eu der ignorar no erro ele gera o boleto.
  7. Erro ao imprimir o boleto --------------------------- Debugger Exception Notification --------------------------- Project MenuCorporativo.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Double)'. --------------------------- Break Continue Help ---------------------------
  8. Componente usado: Já tentei mudar de padrão: TACBrBoletoFCFR
  9. Parametros do boleto: ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lFatura ; //lPadrao; ACBrBoleto1.Banco.Digito := nDigito ; ACBrBoleto1.Banco.Numero := tbContasCorrentes.FieldByName('BANCO').AsInteger; ACBrBoleto1.Banco.Nome := tbContasCorrentes.FieldByName('NOME_BANCO').AsString; ACBrBoleto1.Banco.TipoCobranca := cobBancoob; ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 12; ACBrBoleto1.Cedente.Nome := tbContasCorrentes.FieldByName('NOME
  10. Erro ao tentar imprimir um boleto, o campo Sacado.Cidade, enviar o nome "ITAPEVI" , no entanto ele tenta formatar para data , já fiz a alteração do Layout para todos os tipos. Preciso de um help.
  11. Este erro. --------------------------- Debugger Exception Notification --------------------------- Project ConsultaCNPJ.exe raised exception class EACBrHTTPError with message 'Erro HTTP: 0 Socket Error: 10054 Connection reset by peer URL: https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/captcha/gerarCaptcha.asp Resposta HTTP: '. --------------------------- Break Continue Help --------------------------- Amanhã vou estudar este caso, tem alguma sugestão
  12. Preciso buscar os dados do cliente, usando o código do CNPJ para buscar as informações do mesmo, já fiz alguma pesquisas, temos algo na base ACBR
  13. Este é o trecho do meu programa , esta correto ? Qry_Sped.first ; While not Qry_Sped.eof do // for int0200 := 1 to 10 do begin with Registro0200New do begin COD_ITEM := FormatFloat('000000', int0200); DESCR_ITEM := Qry_Sped.FieldByName('NOME').AsString + FormatFloat('000000', int0200); COD_BARRA := ''; UNID_INV := strUNID[int0200 mod (High(strUNID)+1)]; TIPO_ITEM := tiMercadoriaRevenda; COD_NCM := Qry_Sped.FieldByName('CODIGO_MCM').AsString ; COD_GEN :=
  14. Boa tarde. Sim estou com os demos, mas uma duvida persiste, de uma olhada no pedaço do fonte, // REGISTRO C170: ITENS DO DOCUMENTO (CÓDIGO 01, 1B, 04 e 55). for IItens := 1 to 10 do == > E AQUI QUE TROCO PELO LOOP DA QUERY, WHILE NOT QUEYY.EOF ..... eu inclui mas não esta dando certo. begin with RegistroC170New do // Inicio Adicionar os Itens: begin NUM_ITEM := FormatFloat('000', IItens); COD_ITEM := FormatFloat('000000', StrToInt(NUM_ITEM));
  15. Estou com uma duvida básica, estou tendo dificudade de linkar a query com o preenchimento do bloco. Qry_Sped.first ; // Aqui é a minha query While not Qry_Sped.eof do // Faço o loop // for int0200 := 1 to 10 do // Tirei este loop e substiuti pelo loop da query begin with Registro0200New do begin COD_ITEM := FormatFloat('000000', int0200); DESCR_ITEM := Qry_Sped.FieldByName('NOME').AsString + FormatFloat('000000', int0200); COD_BARRA := ''; UNID_INV := strUNID[int0200 mod (Hi
×
×
  • Create New...