Pessoal, Boa tarde. Estou tentando gerar um relatório com as seguintes informações abaixo. Porém o campo "OPTANTE SUSPENSÃO DE IPI" não consigo puxar a informação correta, acredito que esse programa tenha sofrido uma customização, no programa de manutenção de cliente CD0704: vou até a aba FISCAL e consulta essa radio-set com CTRL+ALT+H e me informe o seguinte (DBName: ? / Table: ? / Name: tg-susp-ipi / Type: LOGICAL / Format: yes/no). Podem me ajudar como consigo puxar essa informação a mesma informação do CD0704. Mais abaixo esta o script que montei. CÓDIGO DO CLIENTE NOME (aba Endereço) MUNICÍPIO (aba Endereço) UF (aba Endereço) CNPJ (aba Identificação) INSCRIÇÃO ESTADUAL (aba Identificação) OPTANTE SUSPENSÃO IPI (aba Identificação) GRUPO (aba Geral) NATUREZA DE OPERAÇÃO (aba Geral) RAMO ATIVIDADE (aba Geral) ---------------------------------------------------------------------------------------------------------------------------------------- DEF VAR m-cod-gr-cli AS INT NO-UNDO. DEF VAR m-desc AS CHAR NO-UNDO. /* OUTPUT TO c:\mgtemp\rel-cd1022.txt. */ FOR EACH emitente: ASSIGN m-cod-gr-cli = 0 m-desc = "". FIND FIRST gr-cli NO-LOCK WHERE gr-cli.cod-gr-cli = emitente.cod-gr-cli NO-ERROR. IF AVAIL gr-cli THEN ASSIGN m-cod-gr-cli = gr-cli.cod-gr-cli m-desc = gr-cli.descricao. IF emitente.cod-emitente = 1734 THEN DISP /* EXPORT DELIMITER ";" */ emitente.cod-emitente emitente.nome-emit emitente.cidade emitente.estado emitente.cgc emitente.ins-estadual emitente.log-optan-suspens-ipi emitente.log-1 emitente.log-2 m-cod-gr-cli m-desc emitente.nat-operacao emitente.atividade WITH 1 COL WIDTH 100. END. /* OUTPUT CLOSE. */
Olá Helton, Pelas minhas anotações este é o campo para "OPTANTE SUSPENSÃO DE IPI": IF SUBSTRING(emitente.char-1,21,1) = "2" THEN "Sim" else "Não". Espero que ajude. Abs.
