Histórico da Página

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.