Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MATA240 - Lançamento de Movimentações Internas
Descrição: Finalidade: Esta rotina permite lançar as movimentações internas de materiais, no processo de Requisições ou Devoluções. Estes procedimentos atualizam o saldo físico e financeiro dos produtos, sendo um item para cada documento criado.Importante: A opção de Internos como movimentação possui uma segunda possibilidade, como "modelo 2", que permite lançar vários itens em um único documento. Veja o tópico Internos (mod.2). Programa Fonte: MATA240.PRX Sintaxe: MATA240 - Lançamento de Movimentações Internas ( ExpA1 [ ExpN2 ] ) --> Nil Retorno:
Observações Esta rotina pode ser executada via rotina automática. Exemplos User Function MyMata240()Local ExpA1 := {}Local ExpN2 := 3Local cTPMovimento := "501"Local nQtd := 10Local cProd := ""Local cUnidade := ""Local cArmazem := ""Local dEmissao := ""PRIVATE lMsErroAuto := .F. //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Abertura do ambiente |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙPREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST" TABLES "SD3","SB1"dbSelectArea("SB1")dbSetOrder(1)dbSeek(xFilial("SB1")+cProd)cProd := B1_CODcUnidade := Posicione("SB1",1,xFilial("SB1")+cProd,"B1_UM")cArmazem := Posicione("SB1",1,xFilial("SB1")+cProd,"B1_LOCPAD")dEmissao := dDataBaseConOut(Repl("-",80))ConOut(PadC("Teste de Movimentacoes Internas",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Begin Transaction ExpA1 := {} aadd(ExpA1,{"D3_TM",cTPMovimento,}) aadd(ExpA1,{"D3_COD",cProd,}) aadd(ExpA1,{"D3_UM",cUnidade,}) aadd(ExpA1,{"D3_LOCAL",cArmazem,}) aadd(ExpA1,{"D3_QUANT",nQtd,}) aadd(ExpA1,{"D3_EMISSAO",dEmissao,}) MSExecAuto({|x,y| mata240(x,y)},ExpA1,ExpN2) If !lMsErroAuto ConOut("Incluido com sucesso! "+cTPMovimento) Else ConOut("Erro na inclusao!") EndIf ConOut("Fim : "+Time()) End TransactionRESET ENVIRONMENTReturn Nil------------------------------------------------------------------------------------------------------------------------------------------------------Para realizar o Estorno, poderá ser utilizado o mesmo ponto de entrada, porém com as seguinte configuração:- Alterar a linha: Local ExpN2 := 3 para: Local ExpN2 := 5- Incluir as linhas: aadd(ExpA1,{"D3_NUMSEQ","000074",}) // Aqui deverá ser colocado o D3_NUMSEQ do registro que foi incluido e agora esta sendo estornado. aadd(ExpA1,{"INDEX",3,}) // Aqui deverá ser indicado o número do indice da tabela SD3 que será utilizado.Desta forma, o movimento será estornado. Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas