1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

[RESOLVIDO] Valores DIFAL Origem e Destino

Discussão em 'EMS , HCM e Totvs 11' iniciado por marcosflizi, Novembro 13, 2018.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. marcosflizi

    marcosflizi Membro Participativo

    Olá pessoal, estou desenvolvendo um especifico que deverá mostrar de cada item da nota fiscal de saída além do ICMS, os valores de DIFAL Origem e Destino.

    Não estou conseguindo localizar na tabela it-nota-fisc onde esta sendo armazenado este valor por item.

    Alguém sabe me informar onde localizar estes valores?

    Agradeço.
  2. marcosflizi

    marcosflizi Membro Participativo

    Pessoal e se também souberem onde fica armazenado o valor do FCP (Fundo Contra a Pobreza) poderiam informar.

    Fico no aguardo.

    Atenciosamente.
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Sabe de algum programa totvs que exiba essa informação?

    Se sim, basta executar o código abaixo, substituindo o RUN pelo programa e pressionar ALT + 0 (ALT + ZERO) para habilitar todos os campos do programa para que você possa
    fazer o CTRL+ALT+H para saber qual o campo de onde se extrai a informação.

    No lugar do RUN enp\en0105.r. coloque o programa que exibe a informação:
    Código:
    /* ################################################################################################################################# */
    PROCEDURE ListaObjs :
    /*---------------------------------------------------------------------------*/
    
    DEF INPUT PARAMETER v-hand AS HANDLE.
    DEF VAR v-hand2 AS HANDLE.
    DEF VAR v-hand3 AS HANDLE.
    
    v-hand2 = v-hand.
    
    DO WHILE VALID-HANDLE(v-hand2):
       /*MESSAGE v-hand2 :NAME VIEW-AS ALERT-BOX.*/
       IF v-hand2:TYPE = "FRAME" THEN DO:
          v-hand3 = v-hand2:FIRST-CHILD NO-ERROR.
          IF ERROR-STAT :ERROR = FALSE THEN RUN ListaObjs(v-hand3).
       END.
       IF v-hand2 :SENSITIVE = FALSE THEN v-hand2 :SENSITIVE = TRUE NO-ERROR.
       v-hand2 = v-hand2:NEXT-SIBLING.
    END.
    
    v-hand = v-hand:FIRST-CHILD NO-ERROR.
    IF ERROR-STAT :ERROR THEN RETURN.
    RUN ListaObjs(v-hand).
    
    END PROCEDURE.
    
    ON ALT-0 ANYWHERE DO:
       MESSAGE "Tem certeza que deseja habilitar todos os campos?"
               VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO TITLE "Confirma‡Æo" UPDATE Choice AS LOGICAL.
       IF Choice = FALSE THEN RETURN NO-APPLY.
       DEF VAR v-hand AS HANDLE NO-UNDO.
       DEF VAR v-hand2 AS HANDLE NO-UNDO.
       v-hand = CURRENT-WINDOW:FIRST-CHILD.
       RUN ListaObjs(v-hand).
    END.
    /* ################################################################################################################################# */
    
    RUN enp\en0105.r.
    
  4. marcosflizi

    marcosflizi Membro Participativo

    Muito Obrigado, mas tem um problema como faço em telas que tem Browse como a tela CD4035 que é chamada pelo ft0904, pois nesta tela que tenho os campos que preciso.
  5. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    esse browse não abre nenhum programa detalhando o item? Não tem outro programa que olha item a item separadamente?
  6. marcosflizi

    marcosflizi Membro Participativo

    Ele mostra no browse detalhado por item, mas quando pressiono o Alt-0, os campos do browse não ficam habilitados para que eu possa fazer CTRL-ALT-H, mas acho que mesmo assim nesta situação não será muito útil pois estes browse é uma temp-table pelo que percebi.
    Mas mesmo assim obrigado pelo programa ele será útil em outras situações.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página