Dangelo2010

Como Resolvo esse Problema?

kkkkkkkk Tudo bem você pode mim ajudar?! pois o ACBrECF não imprimi os itens não sai nada no emulador, somente o cabeçalho.

Não estou consequindo registrar itens no Exe do ACBrECF pois eu consigo abrir e cancelar mais não consigo registrar alquem ja consequiu isso. procedure TForm1.RegistraItemNaoFiscal1Click(Sender: TObject); Var Valor, CodCNF : String ; begin CodCNF := '01' ; Valor := '0' ; if not InputQuery('Registra Item Não Fiscal', 'Entre com o indice do Comprovante Não Fiscal', CodCNF ) then exit ; if not InputQuery('Registra Item Não Fiscal', 'Entre com o Valor do Comprovante Não Fiscal', Valor ) then exit ; ACBrECF1.RegistraItemNaoFiscal(CodCNF, StrToFloatDef(Valor,0), 'TESTE DE COMPROVANTE NAO FISCAL'); mResp.Lines.Add( 'Registra Item Nao Fiscal: '+ CodCNF +' '+ Valor ); AtualizaMemos ; end;

Ok vou testar com a dll da bematech para ver. qualquer coisa post novamente muito obrigado!

Está gastando muita memória na hora de buscar a segunda via do cupom fiscal para impressora bematech MP-4000 TH FI. _Arquivo := 'SegundaViaCoo.txt' ; ACBrECF1.EspelhoMFD_DLL(eNrCooIni.AsInteger, eNrCooIni.AsInteger, _Arquivo);

Ok obrigado

qual o link para baixar o ACBrNFSE do SVN?

Favor corrigir o erro no Registro 1700 do Sped Pis/Cofins Campo 02 "IND_NAT_RET" esta com erro pois o campo esta recebendo Integer no lugar de String pois o Campo 02 "IND_NAT_RET" tem que passar 0 (Zero) a esquerda. Ex: 01 02 Grato!

Favor corrigir o erro no Registro 1620 do Sped Pis/Cofins Campo 02 "PER_APU_CRED" esta com erro pois o campo esta recebendo Integer no lugar de String pois o Campo 02 "PER_APU_CRED" tem que passar 0 (Zero) a esquerda. Ex: 01/2011 Grato!

Favor corrigir o erro no Registro 1620 do Sped Pis/Cofins Campo 03 "ORIG_CRED" esta com erro pois o campo esta recebendo Integer no lugar de String pois o Campo 03 "ORIG_CRED" tem que passar 0 (Zero) a esquerda. Ex: 01 - Credito Decorrente.... 02 - Credito Tranferido por Pessoa ..... Grato!

Estou com o mesmo problema com outros bancos o acbr não consequiu resolver.

Eu atualizo todos os dias teria como você mim enviar as suas configurações! pois os testes que estou fazendo e pelo demo do ACBrBoleto. Grato!

Achei rsrsr Delphi.rar BoletoPhp - Código Aberto de Sistema de Boletos.pdf

como faço para anexar um arquivo para você?

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