Werner dos Santos Souza
-
Total de ítens
17 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Werner dos Santos Souza
-
-
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
-
14 horas atrás, EMBarbosa disse:
Pode por favor nos mandar um passo a passo junto com a mensagem de erro completa? Ou caso não exista mensagem uma imagem do boleto com erro?
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.
-
Em 10/05/2019 at 13:03, Daniel Simoes disse:
Existem os componentes ACBrConsultaCNPJ e ACBrConsultaCPF, que fazem essa consulta no servidor do SEFAZ... mas eles solicitam a digitação do captcha, e vários usuários já relataram que é comum problemas no Servidor
Veja o demo em: \ACBr\Exemplos\ACBrTCP\ACBrConsultaCNPJ\Delphi
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.aspResposta 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
-
8 horas atrás, EMBarbosa disse:
O que não está funcionando?
Isso parece correto.
Será necessário você dar mais informações sobre o que você esperava e o que está realmente acontecendo.
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 proximoend;
end; -
Em 18/02/2019 at 08:51, Juliana Tamizou disse:
Bom dia,
Oque exatamente não está dando certo? Você chegou a ver os demos?
Att.
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
---------------------------
Erro ao obter o Captcha para consultar CPF
em ACBrTCP
Postado
No meu caso o erro persiste, no inicio funciona, mas depois da erro, atualizei os fontes da ACBR mas persiste o erro.