Werner dos Santos Souza
Membros-
Total de ítens
17 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Werner dos Santos Souza postou
-
Erro ao obter o Captcha para consultar CPF
Werner dos Santos Souza replied to Nalso's tópico in ACBrTCP
No meu caso o erro persiste, no inicio funciona, mas depois da erro, atualizei os fontes da ACBR mas persiste o erro. -
Erro ao obter o Captcha para consultar CPF
Werner dos Santos Souza replied to Nalso's tópico in ACBrTCP
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 ? -
Erro ao obter o Captcha para consultar CPF
Werner dos Santos Souza replied to Nalso's tópico in ACBrTCP
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.
-
Erro ao imprimir boleto com FastReport
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in Boleto
No caso onde defino o banco, emito Itau e Bradesco, mas só sai banco do Brasil. -
Erro ao imprimir boleto com FastReport
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in Boleto
Como posso saber se tem alguma atualização do componente, se eu der ignorar no erro ele gera o boleto. -
Erro ao imprimir boleto com FastReport
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in 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 --------------------------- -
Erro ao imprimir boleto com FastReport
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in Boleto
-
Erro ao imprimir boleto com FastReport
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in Boleto
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.
-
Consulta de CNPJ e CPF
Werner dos Santos Souza replied to Carlos Luciana's tópico in ACBrMonitorPLUS
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 -
Validar o CNPJ do cliente na receita federal online
um tópico no fórum postou Werner dos Santos Souza Dúvidas gerais
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 -
acbr Sped Fiscal Preencher Bloco Registro0200New
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in ACBrSPED
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; -
acbr Sped Fiscal Preencher Bloco Registro0200New
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in ACBrSPED
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)); -
acbr Sped Fiscal Preencher Bloco Registro0200New
um tópico no fórum postou Werner dos Santos Souza ACBrSPED
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 ? -
Impressão Arquivo Remessa
Werner dos Santos Souza replied to Werner dos Santos Souza's tópico in Boleto
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 ---------------------------