Boa tarde galera!!! Estou com um problema meio besta só que nÃo consigo encontrar o lugar certo. Eu tenho um cliente que ele emite uma Nota-Fiscal de entrada com a CFOP 1604. O que acontece, quando o cliente necessita imprimir uma nota fiscal com cfop 1604 a parte aonde imprimi os dados dos itens que é na linha 768 na ft0516f.p ele quer q não imprimi as linhas dos itens quando for essa cfop, portanto para resolver eu tinha feito isso, mas não funciona. if c-cfop <> '1.604' then do: CREATE ttDanfeItem. ASSIGN ttDanfeItem.iSeq = i-cont-itens ttDanfeItem.cprod = (IF it-nota-fisc.it-codigo <> "" THEN it-nota-fisc.it-codigo ELSE &if defined(bf_dis_formato_CFOP) &then "CFOP" + b-natur.cod-cfop &else "CFOP" + trim(SUBSTR(b-natur.char-1,45,10)) &endif) WHEN AVAIL b-natur ttDanfeItem.descitem = IF (nota-fiscal.ind-tip-nota = 4 AND it-nota-fisc.qt-faturada[1] = 0) THEN "Complementar de Imposto" ELSE c-desc-prod ttDanfeItem.descitem = IF (nota-fiscal.ind-tip-nota = 8 AND it-nota-fisc.qt-faturada[1] = 0 AND b-natur.nota-rateio) THEN "Complementar" ELSE ttDanfeItem.descitem ttDanfeItem.ncm = c-ncm ttDanfeItem.s = STRING(i-sit-trib,"999") ttDanfeItem.cfop = &if defined(bf_dis_formato_CFOP) &then b-natur.cod-cfop &ELSE TRIM(SUBSTR(b-natur.char-1,45,10)) &ENDIF ttDanfeItem.u = c-un-fatur ttDanfeItem.quantitem = IF cModeloDANFE = '1' THEN STRING(de-qt-fatur,">>>>>,>>9.9999") ELSE STRING(de-qt-fatur,">>>,>>>,>>9.9999") ttDanfeItem.infAdProd = (IF (item.ind-imp-desc = 4 or item.ind-imp-desc = 7 or item.ind-imp-desc = 9) AND AVAIL nar-it-nota THEN nar-it-nota.narrativa ELSE ""). end. Quando era o antigo emissor de papel ele tem resolvido com essa linha de codigo o antigo ft0515.i1 /* CFOP 1.604 - Nao imprime nenhuma informacao nos itens e nem nos totais, somente valor do icms */ if ({cdp/cd0620.i2 nat-operacao nota-fiscal.dt-emis-nota "' '" c-formato-cfop} = "1.604") then do: do i = 26 to 35: /* linha inicial do item ate linha final da transportadora */ run pi-imprime-campo(input i, input 001, input 137, input 'D', FILL(" ", 137)). end. o que eu acho é o seguinte, ou é outro programa, ou é alguma parte que a datasul não libera Alguém já passoou por isso e sabe como arrumar esse problema da cfop 1604 Grato.
Caro colega, A rotina é esta mesma e o que você está fazendo deveria funcionar, verifique o seguinte: 01) A rotina FTP/FT0516F.P é a que está sendo buscada no PROPATH, teste no PRO*TOOLS na opção PROPATH clique no botão SEARCH e informe FTP/FT0516F.R (compilado) e veja se o primeiro que achou está no diretório especifico que você está alterando.
bom dia eduardo...parceiro...eu vi sim...ele ta no propath certinho velho........e não funciona mesmo assim abraço
Vc colocou uma mensagem antes do IF para ter a certeza de que está pegando a rotina... poderia enviar-me as rotinas FT0516*.* para dar uma olhada para você? Envia para o meu e-mail...
Caros, Lembro que com a NF-e, esta alteração não sai no XML. No site da SEFAZ ou receita federal, a nota vai estar conforme foi criada. DANFE não é nota é sim o espelho do xml e não PODE ter conteudo diferente do mesmo o que pode configurar uma rasura. É nota manual? está usando a opção de complementar de imposto? As pessoas tem que entender que tudo mudou com a nota eletronica inclusive a impressão. :roll:
