Werner dos Santos Souza

No meu caso o erro persiste, no inicio funciona, mas depois da erro, atualizei os fontes da ACBR mas persiste o erro.

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 ?

Também estou com este problema, mas já tentei várias opções, ainda não acertei.

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.

No caso onde defino o banco, emito Itau e Bradesco, mas só sai banco do Brasil.

Como posso saber se tem alguma atualização do componente, se eu der ignorar no erro ele gera o boleto.

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 ---------------------------

Componente usado: Já tentei mudar de padrão: TACBrBoletoFCFR

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;

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.

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

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

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;

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

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 ?

No caso não tenho este arquivo *.FR3, não achei dentro do pacote ACBR, como proceder ?

Estou Tentando imprimir os boletos com FastReport, da o erro abaixo: Mas o erro da na busca do arquivo do Fast. --------------------------- Debugger Exception Notification --------------------------- Project MenuCorporativo.exe raised exception class EACBrBoletoFCFR with message 'Caminho ou o arquivo de impressão do boleto não assinalado.'. --------------------------- Break Continue Help ---------------------------