Marcos Gerene

Bom dia Italo, desculpa, agora que percebi... CTeenviCTe Valeu, abraço

Bom dia, Estou com o seguinte problema, quando vou compilar o pacote AcbrCTe.dpk para instalar o CTe, me aparece a seguinte mensagem "Undeclared Identifier" no 'pcteProcCte.pas'. Esta máquina que estou instalando foi recém formatada, logo não tem PCN e nem ACBrNFe na versão antiga na library path. Na lista de Paths tenho: Fontes/ACBrComum Fontes/ACBrDiversos Fontes/ACBrNFe2 Fontes/PCN2 Fontes/ACBrCTe Fontes/Capicom Fontes/synalist São os mesmos paths das minhas outras 2 máquinas e nas outras duas o CTe funciona normalmente. Ps 1: Vale ressaltar que tive um problema com o Delphi logo apos a formatação e ele foi desinstalado e instalado novamente, porém não cheguei a instalar ou sequer baixar o fonte do ACBr na primeira instalação (nenhum dos componentes). Ps 2: Uso além do ACBr, uso os componentes: Quick Report 4, TeeChart, RxLib, Zeos, Indy 10, Rave 5 e um componente de Boleto da GbSoft. Ps 3: Estou com o ACBrNFe2 e ACBrSPED instalado e funcionando perfeitamente. Obrigado, Marcos Spirito

Quanto a questão 4, como posso saber qual o provedor de minha cidade? Muito obrigado pela respostas =)

Bom dia, Dei uma pesquisada na internet, olhei o fonte do demo e tudo mais, mas algumas coisas ainda estão meio "sombrias" na minha cabeça, e não consegui achar informações mais diretas para as minhas dúvidas sobre o NFSe. Seria possível alguém me tirar algumas dúvidas iniciais? 1-) RPS - Pelo que entendi é um "registro provisório" que pode ser usado por até 10 dias antes que vire uma NFSe "de verdade", está certo? No componente pelo que consegui ver, ele gera um arquivo RPS e depois transmite esse arquivo, transformando-o em NFSe, é isso? Se sim ou se não, alguém pode me explicar um pouco melhor isso? 2-) Quanto a numeração, tem uma opção no Demo que é Consultar NFSe por RPS como funciona a numeração do RPS/NFSe, afinal, qual a diferença/semalhança/ligação entre RPS e NFSe? 3-) Assinatura Digital - Li em alguns fóruns que essa assinatura pode variar de cidade para cidade podendo ser uma senha, uma "frase secreta" (acho que isso também é uma senha, rs) ou até mesmo um cartão de assinatura digital (igual da NFe). Seria isso mesmo? 4-) Cidades - Até aonde eu sei não são todas cidades que contemplam a NFSe, eu até tinha conseguido uma lista com as cidades separadas por UF. Gostaria de saber, como deveria proceder com o componente para mudar de ambiente para cada cidade, visto que tenho clientes em várias cidades que implementam a NFSe. 5-) O lote em NFSe é a mesma coisa que o Lote em CT-e, só um agrupador de NFSe's para envio, consulta, etc...? 6-) O que seria aquele Link NFSe do Demo? para que serve? Desde já muito obrigado pelo apoio

Resolvido, Após um almoço tranquilo depois de muito desespero, deu certo =) Solução: As notas canceladas estavam sendo somadas junto no valor do IPI. Muito obrigado mesmo assim, bom final de semana a todos.

Bom dia a todos, Estou com um problema meio chato a alguns dias... Tento validar o arquivo, mas sempre dá o erro do VL_DEB_IPI (Registro E520), falando que o valor deve ser a soma dos registros C190 com CFOP iniciados em 5 e 6. Já somei nota-a-nota, regerei arquivo, mas o valor dá sempre aquele que ele fala estar errado... Alguém poderia me dar uma luz de como resolver isto? Segue o arquivo em anexo: jb.txt Desde já, obrigado

Boa tarde Ítalo, Eu tinha lido e tinha feito isto que você passou, tinha colocando zeros a direita com um formatfloat, mas comecei a ter uns problemas de memória... Bom, mágicamente hoje eu acordo, apago a pasta do acbr e mando baixar de novo, do um build no sistema e compilo, adivinha? erro algum, nem o de legth mais... rsrs Obrigado pela força, vocês são muito feras

Boa tarde Alguém está passando por isso e tem alguma solução? Atualizei componentes, Schemas e fiz isto: with infSeg.Add do begin case FrmCargas.QryConhecimentosCTR_RESP_SEGURO.AsInteger of 0: respSeg:=rsEmitenteCTe; 1: respSeg:=rsRemetente; 2: respSeg:=rsDestinatario; end; xSeg := FrmCargas.QryConhecimentosCTR_NOME_SEGURADORA.AsString; nApol := FrmCargas.QryConhecimentosCTR_NUM_APOLICE.AsString; nAver := FrmCargas.QryConhecimentosCTR_NUM_AVERBACAO.AsString; vCarga := FrmCargas.QryConhecimentosCTR_VALOR_CARGA.AsFloat; end;

Marcelo_Sp Ok, vou passar esse campo em branco, vamos ver no que vai dar... rsrs Obrigado pela ajuda =)

Bom dia a todos, No manual (http://www.gsm.cnt.br/ftp/332LayoutSpedPhoenix.pdf) que achei das alterações para o Contimatic, no registro C470 ,campo 26 (TOT_ECF - Totalizador do ECF) é numérico de tamanho 4. Passei por engano o código do totalizador tipo "03T1800", mas tive um retorno que é um código numérico isso, ou seja, "F1", "Can-T" ou até mesmo "03T1800" não são valores possíveis para este campo. Alguém saberia me dizer como devo preencher este campo? Desde já obrigado.

Boa tarde a todos, Eu estou desenvolvendo para o G5, neste documento: http://www.gsm.cnt.br/ftp/332LayoutSpedPhoenix.pdf está as alterações que são necessárias fazer para gerar o arquivo no layout do arquivo (quais campos em quais blocos e quais registros a mais devem ser informados). Espero conseguir ajudar quem ainda está "patinando" assim como fui ajudado neste mesmo forum, e mais uma vez muito obrigado a todos.

Marcelo, você ajudou até mais do que precisava... Eu só queria saber os campos que estariam "faltando" para completar o arquivo, mas já que você disponibilizou os campos e o código ficou fácil.. rsrs Muito obrigado a todos, sério, a galera toda é muito fera, ajuda muito!

Sim, aparece como saída, e é isso o meu problema... rsrs Eu não consegui achar as entradas no PVA, você saberia me dizer aonde elas ficam?

Agora não sei, são só saídas mesmo? Se sim, meu arquivo está errado o jeito que estou fazendo porque minhas notas de entrada também estão no bloco C, mais precisamente C100/C170, o "engraçado" é que mesmo assim o arquivo valida...

Bom dia a todos, Acredito que esse não seja o melhor lugar para tirar uma dúvida dessas mas infelizmente fiquei sem mais "para onde correr". Apesar das notas de terceiros aparecerem no meu TXT, no PVA do SPED Contribuições não consigo visualizar as mesmas, alguém tem algum "macete" ou poderia me explicar como visualizo ou poderia me falar se é possível visualizar? Txt: teste.txt No PVA: Desde já, obrigado

Entendi Marcelo, eu já faço o SPED Fiscal com o C170 mesmo para NF-e de emissão própria porque a menina do escritório me pediu, mas acredito que irá faltar informações no C170 e no Bloco 0 para contemplar os "dois SPEDs". Não abusando da boa vontade de ninguém, é que não achei essa informação dando uma clássica googlada você saberia me dizer o que tenho que informar a mais (não a maneira como informar e sim o que tem que ser informado a mais) e a posição? Ex: Bloco 0 - Registro 0200, adicionar campos (x, y e z)... Desde já obrigado pela ajuda

Boa tarde a todos, tem como me tirar uma dúvida? Com as alterações para o G5 o novo arquivo gerado é para o SPED Contribuições e para o SPED Fiscal?

Eu informo um ítem como "valor do serviço" com os totais da Nota e um registro analítico (c190) em cima deste ítem, os 2 escritórios que tem clientes em comum comigo sempre aceitaram essa "adaptação" =)

Eu ja postei acima no primeiro post tem o bloco C inteiro, não posso postar por completo porque são informações de um cliente meu...

Sim está no manual mesmo, mas quando coloco para validar aparece aqueles erros que citei acima, com a alteração que fiz os erros sumiram...

Achei o erro... no unit ACBrEPCBloco_C_Class tá assim: Add( {01} LFill('C170') + {02} LFill( NUM_ITEM ) + {03} LFill( COD_ITEM ) + {04} LFill( DESCR_COMPL ) + {05} DFill( QTD, 5 ) + {06} LFill( UNID ) + {07} LFill( VL_ITEM,0,2 ) + {08} LFill( VL_DESC,0,2 ) + {09} LFill( strIND_MOV ) + {10} LFill( strCST_ICMS) + {11} LFill( CFOP,4 ) + {12} LFill( COD_NAT ) + {13} LFill( VL_BC_ICMS,0,2 ) + {14} LFill( ALIQ_ICMS,0,2 ) + {15} LFill( VL_ICMS,0,2 ) + {16} LFill( VL_BC_ICMS_ST,0,2 ) + {17} LFill( ALIQ_ST,0,2 ) + {18} LFill( VL_ICMS_ST,0,2 ) + {19} LFill( strIND_APUR ) + {20} LFill( strCST_IPI ) + {21} LFill( COD_ENQ ) + {22} LFill( VL_BC_IPI,0,2 ) + {23} LFill( ALIQ_IPI,0,2 ) + {24} LFill( VL_IPI,0,2 ) + {25} LFill( strCST_PIS ) + {26} DFill( VL_BC_PIS, 2, True ) + {27} DFill( ALIQ_PIS_PERC, 4, True ) + {28} DFill( QUANT_BC_PIS, 3, True ) + {29} DFill( ALIQ_PIS_R, 4, True ) + {30} LFill( VL_PIS,0,2 ) + {31} LFill( strCST_COFINS ) + {32} DFill( VL_BC_COFINS, 2, True ) + {33} DFill( ALIQ_COFINS_PERC, 4, True ) + {34} DFill( QUANT_BC_COFINS, 3, True ) + {35} DFill( ALIQ_COFINS_R, 4, True ) + {36} LFill( VL_COFINS,0,2 ) + {37} LFill( COD_CTA ) ) ; end; RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroC170Count := FRegistroC170Count + RegC100.RegistroC170.Count; end; end; ele passa true para a função DFill na base de calculo do pis cofins e os campos que estão dando erro, e quando é nulo e 0 essa função retorna || na função: function TACBrTXTClass.DFill(Value: Double; Decimal: Integer = 2; Nulo: Boolean = false): String; begin /// Se o parametro Nulo = true e Value = 0, será retornado '|' if (Nulo) and (Value = 0) then begin Result := FDelimitador; Exit; end; Result := FDelimitador + FormatFloat('#0.' + StringOfChar('0', Decimal), Value); //FormatCurr não permite precisão acima de 4 casas decimais end; Hoje é assim ou existe alguma versão mais atual que seja diferente?

E como ela deveria estar? está assim: #0.00

Continuo com o problema, alguma alma solidária? rsrs

Bom dia a todos, No meu sistema tenho o gerador do SPED Fiscal e PisCofins, no Fiscal quando passo valores 0 (zero) para campos como VL_BC_ICMS (Valor da Base de Calc. do ICMS) o arquivo gera 0 ou 0,00 já no Pis Cofins quando passo o valor o registro fica um "pipe-pipe" ||. Atualizei o componente e revi o código, mas não consigo achar o motivo disso acontecer e o validador do SPED me acusa que este campo é de preenchimento obrigatório. Segue o código, o erro e parte do arquivo. Código: with RegistroC001New do begin IND_MOV := imComDados; with RegistroC010New do begin CNPJ := FrmPrincipal.QryEmpresaAtiva.FieldByName('EMP_CNPJ').AsString; IND_ESCRI := IndEscriIndividualizado; {Tipo de escrituração - Fixo Individualizado (C100 e C170 - Notas; C400, C405, C481 e C485 - ECFs} QC100.Close; QC100.Sql.Clear; QC100.SQL.Add('SELECT * FROM SPED_C100;'); QC100.Open; QC100.FetchAll; FrmPisCofins.ProcessaGauge(QC100.RecordCount, 'BLOCO C - Gerando Registros C100 (NFe - Saídas)...'); QC100.First; while not QC100.Eof do begin with RegistroC100New do begin if QC100.FieldByName('C100_CFOP').AsInteger >= 5000 then IND_OPER := tpSaidaPrestacao else IND_OPER := tpEntradaAquisicao; IND_EMIT := edEmissaoPropria; COD_MOD := '55'; SER := FormatFloat('000', QC100.FieldByName('C100_SERIE').AsInteger); NUM_DOC := QC100.FieldByName('C100_NUMERO').AsString; CHV_NFE := QC100.FieldByName('C100_CHAVENFE').AsString; if QC100.FieldByName('C100_STATUS').AsInteger = 100 then begin COD_SIT := sdRegular; COD_PART := CodPart(QC100.FieldByName('C100_CNPJ').AsString); DT_DOC := QC100.FieldByName('C100_DATA').AsDateTime; DT_E_S := QC100.FieldByName('C100_DATA').AsDateTime; VL_DOC := QC100.FieldByName('C100_VL_DOC').AsFloat; case QC100.FieldByName('C100_TIPOPAGTO').AsInteger of 0: IND_PGTO := tpVista; 1: IND_PGTO := tpPrazo; 2: IND_PGTO := tpNenhum; end; VL_DESC := QC100.FieldByName('C100_VL_DESC').AsFloat; VL_ABAT_NT := QC100.FieldByName('C100_VL_ABAT_NT').AsFloat; VL_MERC := QC100.FieldByName('C100_VL_MERC').AsFloat; case QC100.FieldByName('C100_IND_FRETE').AsInteger of 0: IND_FRT := tfPorContaEmitente; 1: IND_FRT := tfPorContaDestinatario; 2: IND_FRT := tfPorContaTerceiros; 9: IND_FRT := tfSemCobrancaFrete; end; VL_FRT := QC100.FieldByName('C100_VL_FRETE').AsFloat; VL_SEG := QC100.FieldByName('C100_VL_SEGURO').AsFloat; VL_OUT_DA := QC100.FieldByName('C100_VL_OUT_DA').AsFloat; VL_BC_ICMS := QC100.FieldByName('C100_VL_BC_ICMS').AsFloat; VL_ICMS := QC100.FieldByName('C100_VL_ICMS').AsFloat; VL_BC_ICMS_ST := QC100.FieldByName('C100_VL_BC_ICMS_ST').AsFloat; VL_ICMS_ST := QC100.FieldByName('C100_VL_ICMS_ST').AsFloat; VL_IPI := QC100.FieldByName('C100_VL_IPI').AsFloat; VL_PIS := QC100.FieldByName('C100_VL_PIS').AsFloat; VL_COFINS := QC100.FieldByName('C100_VL_COFINS').AsFloat; VL_PIS_ST := QC100.FieldByName('C100_VL_PIS_ST').AsFloat; VL_COFINS_ST := QC100.FieldByName('C100_VL_COFINS_ST').AsFloat; QC170.Close; QC170.Sql.Clear; QC170.Sql.Add('SELECT * FROM SPED_C170 WHERE C100_CHAVENFE = :C100_CHAVENFE;'); QC170.ParamByName('C100_CHAVENFE').AsString := QC100.FieldByName('C100_CHAVENFE').AsString; QC170.Open; QC170.FetchAll; IItens := 1; QC170.First; while not QC170.eof do begin with RegistroC170New do begin NUM_ITEM := FormatFloat('000', IItens); COD_ITEM := QC170.FieldByName('PRO_CODIGO').AsString + 'P'; DESCR_COMPL := PesquisaBanco('SELECT PRO_DESCRICAO FROM PRODUTO WHERE PRO_CODIGO = '+QC170.FieldByName('PRO_CODIGO').AsString,nil); QTD := QC170.FieldByName('C170_QTDE').AsFloat; UNID := PesquisaBanco('SELECT U.UNI_SIGLA FROM PRODUTO P INNER JOIN UNIDADES U ON U.UNI_CODIGO = P.UNI_CODIGO WHERE PRO_CODIGO = '+QC170.FieldByName('PRO_CODIGO').AsString,nil); VL_ITEM := QC170.FieldByName('C170_QTDE').AsFloat * QC170.FieldByName('C170_VL_ITEM').AsFloat; VL_DESC := 0; IND_MOV := mfSim; CST_ICMS := F_CST_ICMS(QC170.FieldByName('C170_CST_ICMS').AsString); CFOP := QC170.FieldByName('C170_CFOP').AsString; COD_NAT := ''; VL_BC_ICMS := QC170.FieldByName('C170_BC_ICMS').AsFloat; ALIQ_ICMS := QC170.FieldByName('C170_ALIQ_ICMS').AsFloat; VL_ICMS := QC170.FieldByName('C170_VL_ICMS').AsFloat; VL_BC_ICMS_ST := QC170.FieldByName('C170_BC_ICMS_ST').AsFloat; Aliq_ST := QC170.FieldByName('C170_ALIQ_ICMS_ST').AsFloat; VL_ICMS_ST := QC170.FieldByName('C170_VL_ICMS_ST').AsFloat; IND_APUR := iaMensal; CST_IPI := F_CST_IPI(QC170.FieldByName('C170_CST_IPI').AsString); COD_ENQ := ''; VL_BC_IPI := QC170.FieldByName('C170_BC_IPI').AsFloat; ALIQ_IPI := QC170.FieldByName('C170_ALIQ_IPI').AsFloat; VL_IPI := QC170.FieldByName('C170_VL_IPI').AsFloat; CST_PIS := F_CST_PIS(QC170.FieldByName('C170_CST_PIS').AsString,0); CST_COFINS := F_CST_COFINS(QC170.FieldByName('C170_CST_COFINS').AsString, 0); VL_BC_PIS := QC170.FieldByName('C170_BC_PIS').AsFloat; ALIQ_PIS_PERC := QC170.FieldByName('C170_ALIQ_PIS').AsFloat; QUANT_BC_PIS := 0; ALIQ_PIS_R := 0; VL_PIS := QC170.FieldByName('C170_BC_PIS').AsFloat * (QC170.FieldByName('C170_ALIQ_PIS').AsFloat/100); VL_BC_COFINS := QC170.FieldByName('C170_BC_COFINS').AsFloat; ALIQ_COFINS_PERC := QC170.FieldByName('C170_ALIQ_COFINS').AsFloat; QUANT_BC_COFINS := 0; ALIQ_COFINS_R := 0; VL_COFINS := VL_BC_COFINS * (ALIQ_COFINS_PERC/100); COD_CTA := ''; Inc(IItens); end; QC170.Next; end; end else COD_SIT := sdCancelado; end; QC100.Next; end; Arquivo: PisCofins-Dezembro-2012.txt Erros: Base: Desde já agradeço a ajuda, Att, Marcos Spirito

Estava validando normalmente antes de eu atualizar o validador e pegar um banco mais novo do cliente, ele me passa que o C100 não é para ser informado... qual o parâmetro que define esse perfil? Eu só achei essa diferença de perfil no SPED Fiscal... eu achei a mesma duvida que a minha em um outro forum, mas o cara ainda não obteve resposta...