...
Escolha o modelo desejado abaixo de acordo com a sua necessidade de execução:
Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda:
| Totvs custom tabs box |
|---|
| tabs | Exemplo 01, Exemplo 02, Exemplo 03, Exemplo 04 |
|---|
| ids | Exemplo01,Exemplo02 |
|---|
|
| Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | Exemplo01 |
|---|
| Este é o exemplo básico para a execução da Rotina Automática do Pedido de Venda: | Bloco de código |
|---|
| #INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
Return lReturn
|
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | Exemplo02 |
|---|
| Utilize esse exemplo para os Pedidos de Venda que necessitam das informações de rateio dos itens do Pedido de Venda por Centros de Custo: | Bloco de código |
|---|
| #INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
If !IsInCallStack("TudoOK")//Executa na edicao por linha.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
EndIf
Return lReturn
|
|
|
...
