Urgente Duvida de onde vem o campo abaixo

Discussão em 'EMS , HCM e Totvs 11' iniciado por Antonio, Janeiro 5, 2023.

Página 1 de 2
  1. Antonio

    Antonio Membro Participativo

    Pessoal, preciso saber de onde vem o campo
    upload_2023-1-5_16-37-18.png

    Este programa é a ultima aba do ft0904c(aba impostos).

    Se alguem puder me ajudar, agradeço.

    Antonio
    Antonio, Janeiro 5, 2023
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Use o programa em anexo e altere o programa que ele vai abrir no RUN no final.

    Abra o programa na tela que tu abriu e aperte ALT+0 (zero), e este programa vai habilitar tudo no programa que ele rodou e que está em tela.

    Atenção, esse programa é só pra visualizar dados e apertar o CTRL+ALT+H

    Arquivos Anexados:

    • ALT_0.p
      Tamanho:
      1.8 KB
      Visitas:
      12
    rafael.andrade, Janeiro 5, 2023
    #2
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Comente o trecho do programa se caso queira usar o CTRL+ALT+H padrão:

    upload_2023-1-5_17-46-50.png
    rafael.andrade, Janeiro 5, 2023
    #3
  4. Antonio

    Antonio Membro Participativo

    Bom dia.
    Obrigado pela ajuda
    Antonio, Janeiro 6, 2023
    #4
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    No programa está assim ...

    Código:
              &if '{&bf_dis_versao_ems}' >= '2.07' &then
              assign c-modalidade-icms    = entry(it-nota-fisc.idi-modalid-base-icms, {diinc/i01di088.i 03})    WHEN it-nota-fisc.idi-modalid-base-icms    > 0
                     c-modalidade-ipi     = entry(it-nota-fisc.idi-modalid-base-ipi, {diinc/i02di088.i 03})     WHEN it-nota-fisc.idi-modalid-base-ipi     > 0
                     c-modalidade-icms-st = entry(it-nota-fisc.idi-modalid-base-icms-st, {diinc/i03di088.i 03}) WHEN it-nota-fisc.idi-modalid-base-icms-st > 0.
   
              run utp/ut-liter.p(input replace(c-modalidade-icms," ","_"),"","").
              assign c-modalidade-icms:SCREEN-VALUE IN FRAME {&FRAME-NAME} = trim(return-value).
   
              run utp/ut-liter.p(input replace(c-modalidade-ipi," ","_"),"","").
              assign c-modalidade-ipi:SCREEN-VALUE IN FRAME {&FRAME-NAME} = trim(return-value).
   
              run utp/ut-liter.p(input replace(c-modalidade-icms-st," ","_"),"","").
              assign c-modalidade-icms-st:SCREEN-VALUE IN FRAME {&FRAME-NAME} = trim(return-value).
          &else
              assign c-modalidade-icms    = entry(int(substring(it-nota-fisc.char-1,81,2)), {diinc/i01di088.i 03}) WHEN int(substring(it-nota-fisc.char-1,81,2)) > 0
                     c-modalidade-ipi     = entry(int(substring(it-nota-fisc.char-1,83,2)), {diinc/i02di088.i 03}) WHEN int(substring(it-nota-fisc.char-1,83,2)) > 0
                     c-modalidade-icms-st = entry(int(substring(it-nota-fisc.char-1,85,2)), {diinc/i03di088.i 03}) WHEN int(substring(it-nota-fisc.char-1,85,2)) > 0.
    bootstrapmaster, Janeiro 6, 2023
    #5
  6. Antonio

    Antonio Membro Participativo

    Na verdade, no final das contas eu precisei preencher esta tabela....
    IND FIRST item-doc-est-tribut EXCLUSIVE-LOCK WHERE
    ITEM-DOC-EST-TRIBUT.CDN-EMITENTE = ITEM-DOC-EST.COD-EMITENTE AND
    item-doc-est-tribut.cod-serie-docto = ITEM-DOC-EST.SERIE-DOCTO AND
    item-doc-est-tribut.cod-num-docto = ITEM-DOC-EST.NRO-DOCTO AND
    item-doc-est-tribut.nom-trib = "ICMS" AND
    item-doc-est-tribut.cod-campo = "CST" AND
    item-doc-est-tribut.num-seq = ITEM-DOC-EST.SEQUENCIA NO-ERROR.

    IF AVAIL ITEM-DOC-EST-TRIBUT THEN
    ASSIGN ITEM-DOC-EST-TRIBUT.COD-CONTEUDO = STRING(int(SUBSTRING(bit-nota-fisc.char-1, 465,5)),"999").
    Antonio, Janeiro 9, 2023
    #6
Página 1 de 2

Compartilhe esta Página