Dangelo2010

Ok veja os fontes em anexo junto com o pdf do boleto correto imprima e tente configurar da mesma forma voce vai ver que nao confere. Grato!

o que esta correto e o "Correto - BoletoPhp.pdf " pois o outro nao passo no teste quando fui fazer o pagamento o leitor de barras do caixa nao consequiu ler o codigo ja li e reli o manual varias vezes e nada. realmente são os digitos fericadores que fazer certo.

Bom dia! Pois é, mais esse e o problema não tenho opção para informar o valor 3 na modalidade não tem esse campo ou seja não tem essa opção é inexistente.

O Demo do boleto não está obdecendo as linhas de codigo de barras e as linhas digitaveis corretamente seque exemplos em anexo. Errado - BoletoBradescoACBR.pdf Correto - BoletoPhp.pdf

pelos os meus calculos e somente este ou seja primeiro campo do Campo Livre

Mais esté é o problema não existe opção o código 1 está fixo não a como mudar.

Amigo muito obrigado vou fazer o teste aqui pois eu nao tinha visto isso. value mesmo abraço.

e isso mesmo que esta sendo feito. esse e o laço VEJA ModuloCadastro.IBQDocumento.Close; ModuloCadastro.IBQDocumento.SQL.Clear; ModuloCadastro.IBQDocumento.SQL.Add('SELECT * FROM DOCUMENTO '); ModuloCadastro.IBQDocumento.SQL.Add('WHERE COD_EMPRESA = :COD_EMPRESA '); ModuloCadastro.IBQDocumento.SQL.Add('AND DATA_EMISSAO >= :DATA_INI '); ModuloCadastro.IBQDocumento.SQL.Add('AND DATA_EMISSAO <= :DATA_FIN '); ModuloCadastro.IBQDocumento.SQL.Add('AND ((MODELO = ''06'') OR (MODELO = ''28'') OR (MODELO = ''29'')) '); ModuloCadastro.IBQDocumento.Parameters.ParamByName('COD_EMPRESA').Value := Modulo.RecCodEmp; ModuloCadastro.IBQDocumento.Parameters.ParamByName('DATA_INI').Value := EDataInicial.Date; ModuloCadastro.IBQDocumento.Parameters.ParamByName('DATA_FIN').Value := EDataFinal.Date; ModuloCadastro.IBQDocumento.Open; If ModuloCadastro.IBQDocumento.RecordCount > 0 Then Begin ModuloCadastro.IBQDocumento.First; With RegistroC500New Do Begin While ModuloCadastro.IBQDocumento.Eof = False Do Begin Application.ProcessMessages; If (ModuloCadastro.IBQDocumentoMODELO.AsString = '06') Or (ModuloCadastro.IBQDocumentoMODELO.AsString = '28') Or (ModuloCadastro.IBQDocumentoMODELO.AsString = '29') Then Begin If ModuloCadastro.IBQDocumentoINDICADOR_OPERACAO.AsString = '0' Then Begin IND_OPER := tpEntradaAquisicao; End Else If ModuloCadastro.IBQDocumentoINDICADOR_OPERACAO.AsString = '1' Then Begin IND_OPER := tpSaidaPrestacao; End; If ModuloCadastro.IBQDocumentoINDICADOR_EMISSAO.AsInteger = 0 Then Begin IND_EMIT := edEmissaoPropria; End Else Begin IND_EMIT := edTerceiros; End; COD_PART := ModuloCadastro.IBQDocumentoCOD_FORNECEDOR.AsString; COD_MOD := ModuloCadastro.IBQDocumentoMODELO.AsString; If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '0' Then Begin COD_SIT := sdRegular; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '1' Then Begin COD_SIT := sdExtempRegular; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '2' Then Begin COD_SIT := sdCancelado; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '3' Then Begin COD_SIT := sdCanceladoExtemp; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '4' Then Begin COD_SIT := sdDoctoDenegado; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '5' Then Begin COD_SIT := sdDoctoNumInutilizada; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '6' Then Begin COD_SIT := sdFiscalCompl; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '7' Then Begin COD_SIT := sdExtempCompl; End Else If ModuloCadastro.IBQDocumentoCOD_SITUACAO.AsString = '8' Then Begin COD_SIT := sdRegimeEspecNEsp; End; SER := ModuloCadastro.IBQDocumentoSERIE.AsString; SUB := ''; If (ModuloCadastro.IBQDocumentoMODELO.AsString = '06') Or (ModuloCadastro.IBQDocumentoMODELO.AsString = '28') Then Begin if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '1' Then Begin COD_CONS := ccComercial; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '2' Then Begin COD_CONS := ccConsumoProprio; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '3' Then Begin COD_CONS := ccIluminacaoPublica; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '4' Then Begin COD_CONS := ccIndustrial; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '5' Then Begin COD_CONS := ccPoderPublico; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '6' Then Begin COD_CONS := ccResidencial; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '7' Then Begin COD_CONS := ccRural; End Else if ModuloCadastro.IBQDocumentoCOD_CONSUMIDOR.AsString = '8' Then Begin COD_CONS := ccServicoPublico; End; End Else If (ModuloCadastro.IBQDocumentoMODELO.AsString = '29') Then Begin // COD_CONS := ccServicoPublico; End; NUM_DOC := ModuloCadastro.IBQDocumentoN_DOCUMENTO.AsString; DT_DOC := ModuloCadastro.IBQDocumentoDATA_EMISSAO.AsDateTime; DT_E_S := ModuloCadastro.IBQDocumentoDATA_EMISSAO.AsDateTime; VL_DOC := ModuloCadastro.IBQDocumentoVALOR_DOCUMENTO.AsFloat; VL_DESC := 0; VL_FORN := ModuloCadastro.IBQDocumentoVALOR_DOCUMENTO.AsFloat; VL_SERV_NT := 0; VL_TERC := 0; VL_DA := ModuloCadastro.IBQDocumentoVALOR_OUTROS.AsFloat; VL_BC_ICMS := ModuloCadastro.IBQDocumentoBASE_ICMS.AsFloat; VL_ICMS := ModuloCadastro.IBQDocumentoVALOR_ICMS.AsFloat; VL_BC_ICMS_ST := ModuloCadastro.IBQDocumentoBASE_ICMS_ST.AsFloat; VL_ICMS_ST := ModuloCadastro.IBQDocumentoVALOR_ICMS_ST.AsFloat; COD_INF := ModuloCadastro.IBQDocumentoCOD_OBSERVACAO.AsString; VL_PIS := ModuloCadastro.IBQDocumentoVALOR_PIS.AsFloat; VL_COFINS := ModuloCadastro.IBQDocumentoVALOR_COFINS.AsFloat; If ModuloCadastro.IBQDocumentoCOD_TIPO_LIGACAO.AsString = '1' Then Begin TP_LIGACAO := tlMonofasico; End Else If ModuloCadastro.IBQDocumentoCOD_TIPO_LIGACAO.AsString = '2' Then Begin TP_LIGACAO := tlBifasico; End Else If ModuloCadastro.IBQDocumentoCOD_TIPO_LIGACAO.AsString = '3' Then Begin TP_LIGACAO := tlTrifasico; End; If (ModuloCadastro.IBQDocumentoMODELO.AsString = '06') Then Begin If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '1' Then Begin COD_GRUPO_TENSAO := gtA1; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '2' Then Begin COD_GRUPO_TENSAO := gtA2; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '3' Then Begin COD_GRUPO_TENSAO := gtA3; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '4' Then Begin COD_GRUPO_TENSAO := gtA3a; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '5' Then Begin COD_GRUPO_TENSAO := gtA4; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '6' Then Begin COD_GRUPO_TENSAO := gtAS; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '7' Then Begin COD_GRUPO_TENSAO := gtB107; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '8' Then Begin COD_GRUPO_TENSAO := gtB108; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '9' Then Begin COD_GRUPO_TENSAO := gtB209; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '10' Then Begin COD_GRUPO_TENSAO := gtB2Rural; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '11' Then Begin COD_GRUPO_TENSAO := gtB2Irrigacao; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '12' Then Begin COD_GRUPO_TENSAO := gtB3; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '13' Then Begin COD_GRUPO_TENSAO := gtB4a; End Else If ModuloCadastro.IBQDocumentoCOD_TENSAO.AsString = '14' Then Begin COD_GRUPO_TENSAO := gtB4b; End; End; If (ModuloCadastro.IBQDocumentoMODELO.AsString = '06') Or (ModuloCadastro.IBQDocumentoMODELO.AsString = '28') Or (ModuloCadastro.IBQDocumentoMODELO.AsString = '29') Then Begin // REGISTRO C590 lblTexto.Caption := 'Registro C590'; lblTexto.Refresh; IBQC590.Close; IBQC590.SQL.Clear; IBQC590.SQL.Add('SELECT DISTINCT SITUACAO_TRIBUTARIA, CFOP, PERC_ICMS, '); IBQC590.SQL.Add(' SUM(TOTAL_ITEM) AS VALOR_OPERACAO, '); IBQC590.SQL.Add(' SUM(BASE_ICMS) AS BASE_ICMS, '); IBQC590.SQL.Add(' SUM(VALOR_ICMS) AS VALOR_ICMS, '); IBQC590.SQL.Add(' SUM(VALOR_IPI) AS VALOR_IPI, '); IBQC590.SQL.Add(' SUM(VALOR_DESCONTO) AS VALOR_DESCONTO, '); IBQC590.SQL.Add(' SUM(VALOR_OUTROS) AS VALOR_OUTROS, '); IBQC590.SQL.Add(' SUM(VALOR_FRETE) AS VALOR_FRETE, '); IBQC590.SQL.Add(' SUM(VALOR_ACRESCIMO) AS VALOR_ACRESCIMO, '); IBQC590.SQL.Add(' SUM(VALOR_SEGURO) AS VALOR_SEGURO '); IBQC590.SQL.Add('FROM DOCUMENTO_ITENS '); IBQC590.SQL.Add('WHERE COD_EMPRESA = :COD_EMPRESA '); IBQC590.SQL.Add('AND DATA_EMISSAO = :DATA_EMISSAO '); IBQC590.SQL.Add('AND N_DOCUMENTO = :N_DOCUMENTO '); IBQC590.SQL.Add('GROUP BY SITUACAO_TRIBUTARIA, CFOP, PERC_ICMS '); IBQC590.Parameters.ParamByName('COD_EMPRESA').Value := Modulo.RecCodEmp; IBQC590.Parameters.ParamByName('DATA_EMISSAO').Value := ModuloCadastro.IBQDocumentoDATA_EMISSAO.AsDateTime; IBQC590.Parameters.ParamByName('N_DOCUMENTO').Value := ModuloCadastro.IBQDocumentoN_DOCUMENTO.AsInteger; IBQC590.Open; If IBQC590.RecordCount > 0 Then Begin IBQC590.First; While IBQC590.Eof = False Do Begin With RegistroC590New Do Begin If (IBQC590SITUACAO_TRIBUTARIA.AsString = '030') Or (IBQC590SITUACAO_TRIBUTARIA.AsString = '040') Or (IBQC590SITUACAO_TRIBUTARIA.AsString = '041') Or (IBQC590SITUACAO_TRIBUTARIA.AsString = '050') Or (IBQC590SITUACAO_TRIBUTARIA.AsString = '060') Then Begin ALIQ_ICMS := 0; VL_BC_ICMS := 0; VL_ICMS := 0; End Else Begin ALIQ_ICMS := IBQC590PERC_ICMS.AsFloat; VL_BC_ICMS := IBQC590BASE_ICMS.AsFloat; VL_ICMS := IBQC590VALOR_ICMS.AsFloat; End; CST_ICMS := IBQC590SITUACAO_TRIBUTARIA.AsString; CFOP := IBQC590CFOP.AsString; VL_OPR := IBQC590VALOR_OPERACAO.AsFloat; VL_BC_ICMS_ST := 0; VL_ICMS_ST := 0; VL_RED_BC := 0; COD_OBS := ''; End; IBQC590.Next; End; End; End; End; ModuloCadastro.IBQDocumento.Next; End; End; End; //FIM C500 MODERAÇÃO: Coloquei seu código dentro da tag code. EMBarbosa

Amigo sim pelo o que eu entendi e por causa da opcao do Tipo de Registro 1 ou 3. pois esta fixo como 1 e na linha digitavel se for ver pelo arquivo xls do excel que o banco mim envio o Tipo de Registro e 3 e nao tem essa opcao para mudanças.

Estou com um problema no componente acbrboleto não tem opção para escolher ou passar o tipo de registro 1 ou 3. Outra coisa essa linha digitavel está correnta pois foi gerada por um boleto que esta no sit http://www.boletophp.com.br/boletophp/b ... icredi.php [^] 74893.11121 13871.212349 18123.451058 7 49760000295295 mais no demo do acbr ja configurei de varias formas e nao calcula a linha digitavel correto pois o mais correto que eu consequi chegar foi nessa linha 74891.11121 13871.212346 18123.451013 8 49760000295295 veja esté arquivo em excel em anexo.

estou gerando 5 notas fiscal com cabecalho e itens no entando quando vai para o arquivo ele gera somente um C500 e depois pega todos os C590. estou obdecendo a hierarquia pai e filho ou seja uma nota varios itens pois os C590 nao pertencem a nota 755 do C500. |C500|1|0|755|06|00|1||01|078073681|02022011|02022011|1922,64|0,00|1922,64|0,00|0,00|0,00|1922,64|557,57|0,00|0,00||0,00|0,00|1|01| |C590|090|1949|0,00|1661,00|0,00|0,00|0,00|0,00|0,00|| |C590|090|1949|0,00|2565,75|0,00|0,00|0,00|0,00|0,00|| |C590|090|1949|0,00|115,21|0,00|0,00|0,00|0,00|0,00|| |C590|090|1949|0,00|471,56|0,00|0,00|0,00|0,00|0,00|| |C590|000|1252|29,00|1922,64|1922,64|557,57|0,00|0,00|0,00||

eu ainda não consequi resolver o problema.

Amigo valeu mesmo pela dica muito obrigado agora ja tenho uma ideia de como fazer isso. Grato!

sim, tudo que sabia eu ja fiz mais nao acho o que e, o interessante e que envia de boa mais nao chega e nem mim da erro parece que no meio do caminho ele se perde. e nao mim traz nem um erro.

Galera estou com um problema nao sei se e o internet explorer ou outra coisa mais e o sequinte o sistema envia tranquilamente sem erros isso ja funciona a meses no xp, server 2003 e vista agora estou tentando enviar para o w7 e nao consigo envia de boa mais quando abro o email nao aparece nada ou seja deve estar preso em alguma e nao mim retorna nem um erro ao enviar. alquem teria uma ideia do que pode ser. grato!

por isso postei no forum esse link nao mim traz nada.

alquem saberia mim dizer o acbr tem algum projeto para nota fiscal de serviço e como funciona?!

alquem teria uma ideia de um atualizador de sistemas e script de banco de dados em delphi Ele tem que detectar atualização disponível automaticamente... E baixar depois instalar. grato.

Não consigo emitir nota do estado do PARANA - PR na versao 2.0 alquem poderia verificar ou mim dar uma ajuda. seque arquvio anexo