Imprimi Página | Fechar janela

Ponto de Entrada A103CUST Impresso de: Helpfacil - Portal do conhecimento Nome do Forum: ADVPL Descrição do Forum: Dúvidas sobre a programação em ADVPL URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=43747 Data da Impressão: sexta-feira, 19 de abril de 2024 at 14:41 Topico: Ponto de Entrada A103CUST Postado por: JAMERSON19 Assunto: Ponto de Entrada A103CUST Data Postagem: quinta-feira, 19 de agosto de 2021 at 12:09 Boa tarde! Alguém tem o ponto de entrada A103CUST ? Se sim, pode disponibilizar. Estou na dúvida de como deve ser feita a manipulação nesse ponto de entrada. Desde já grato. meu email: jamerson.souza@sweetfruits.com.br Respostas: Postado Por: EMERSON.EN Data Postagem: quinta-feira, 19 de agosto de 2021 at 12:32 User Function A103CUST() Local aRet := PARAMIXB[1] //recebe os custos calculados pelo Protheus // Conteudo do aRet // aRet[1,1] -> Custo de entrada na Moeda 1 // aRet[1,2] -> Custo de entrada na Moeda 2 // aRet[1,3] -> Custo de entrada na Moeda 3 // aRet[1,4] -> Custo de entrada na Moeda 4 // aRet[1,5] -> Custo de entrada na Moeda 5 // Efetue os cálculos necessários e // manipule o conteúdo do array aRet Return aRet // devolve os custos para o Protheus Postado Por: JAMERSON19 Data Postagem: quarta-feira, 22 de dezembro de 2021 at 08:49 Bom dia! Obrigado Emerson! Mas, alguém usa o ponto de entrada e tem um exemplo diferente do apresentado pela TOTVS ? Pois estou sem saber como utilizar esse ponto de entrada de fato. Atenciosamente, Jamerson Souza Postado Por: MARIOZ Data Postagem: quarta-feira, 31 de agosto de 2022 at 12:13 #INCLUDE ‘RWMAKE.CH‘ User Function A103CUST()      Local _aArea    := GetARea()      Local _aSf4Area := SF4->(GetArea())      Local aRet      := PARAMIXB[1] //recebe os custos calculados pelo Protheus      // Conteudo do aRet      // aRet[1,1] -> Custo de entrada na Moeda 1      // aRet[1,2] -> Custo de entrada na Moeda 2      // aRet[1,3] -> Custo de entrada na Moeda 3      // aRet[1,4] -> Custo de entrada na Moeda 4      // aRet[1,5] -> Custo de entrada na Moeda 5      IF SF4->F4_BONIF == "S" // Bonificacoes, se tiver credito de impostos reduz e forca o custo negativo           IF aRet[1,1] == 0                IF SF4->F4_CREDICM == "S"                     aRet[1,1] -= SD1->D1_VALICM                ENDIF                IF SF4->F4_CREDIPI == "S"                     aRet[1,1] -= SD1->D1_VALIPI                ENDIF                IF SF4->F4_PISCRED == "1"                     aRet[1,1] -= SD1->D1_VALIMP5                     aRet[1,1] -= SD1->D1_VALIMP6                ENDIF           ENDIF      ENDIF      RestArea(_aSf4Area)      RestArea(_aArea) Return aRet // devolve os custos para o Protheus

Imprimir Página | Fechar Janela