Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

Werner dos Santos Souza

Membros
  • Posts

    17
  • Joined

  • Last visited

Recent Profile Visitors

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

Werner dos Santos Souza's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  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 "cobBradesco" , tanto o numero 6 , mas ambos não permite passar como paramento.
  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('NOMECEDENTE').AsString; ACBrBoleto1.Cedente.CNPJCPF := tbContasCorrentes.FieldByName('CNPJCPFCedente').AsString; ACBrBoleto1.Cedente.CodigoCedente := tbContasCorrentes.FieldByName('CodigoCedente').AsString; ACBrBoleto1.Cedente.Agencia := tbContasCorrentes.FieldByName('AgenciaCedente').AsString; ACBrBoleto1.Cedente.AgenciaDigito := '0'; ACBrBoleto1.Cedente.Conta := '99555' ;/// tbContasCorrentes.FieldByName('ContaCorrenteCedente').AsString; ACBrBoleto1.Cedente.ContaDigito := '0' ; // tbContasCorrentes.FieldByName('DIGITO_CONTA').AsString; ACBrBoleto1.Cedente.UF := tbContasCorrentes.FieldByName('NOME_UF').AsString;
  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 := '30'; ALIQ_ICMS := Qry_Sped.FieldByName('ALIQUOTA_ICM').AsFloat ; with Registro0220New do ======= > aqui pego a unidade de medida, no meu caso só tenho um não preciso deste loop begin UNID_CONV := strUNID[int0200 mod (High(strUNID)+1)]; FAT_CONV := 1; end; Qry_Sped.next ; =========> aqui passo para o proximo end; end;
  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 (High(strUNID)+1)]; TIPO_ITEM := tiMercadoriaRevenda; COD_NCM := Qry_Sped.FieldByName('CODIGO_MCM').AsString ; COD_GEN := '30'; ALIQ_ICMS := Qry_Sped.FieldByName('ALIQUOTA_ICM').AsFloat ; Mas não esta funcionando. Alguém tem um exemplo ?
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.