#include 'protheus.ch'
#include 'parmtype.ch'
#include "tbiconn.ch"
User Function myMATA242()
Local aAutoCab := {}
Local aAutoItens := {}
Private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" Modulo "EST" tables "SB1", "SD3"
aAutoCab := { {"cProduto" , Pad("02 ", Len(SD3->D3_COD)) , Nil},;
{"cLocOrig" , "01" , Nil},;
{"cLocaliza" , CriaVar("D3_LOCALIZ") , Nil},;
{"cLoteDigi" , CriaVar("D3_LOTECTL") , Nil},;
{"cNumLote" , CriaVar("D3_NUMLOTE") , Nil},;
{"dDtValid" , CriaVar("D3_DTVALID") , Nil},;
{"nPotencia" , CriaVar("D3_POTENCI") , Nil},;
{"cNumSerie" , CriaVar("D3_NUMSERI") , Nil},;
{"nQtdOrig" , 100 , Nil},;
{"nQtdOrigSe" , CriaVar("D3_QTSEGUM") , Nil},;
{"cDocumento" , Pad("000000002", Len(SD3->D3_DOC)) , Nil}}
aAutoItens := {{ {"D3_COD" , Pad("03 ", Len(SD3->D3_COD)) , Nil}, ;
{"D3_LOCAL" , "01" , Nil}, ;
{"D3_QUANT" , 1 , Nil}, ;
{"D3_QTSEGUM", CriaVar("D3_QTSEGUM") , Nil}, ;
{"D3_RATEIO" , 20 , Nil}},;
{ {"D3_COD" , Pad("04 ", Len(SD3->D3_COD)), Nil}, ;
{"D3_LOCAL" , "01" , Nil}, ;
{"D3_QUANT" , 24 , Nil}, ;
{"D3_QTSEGUM", CriaVar("D3_QTSEGUM") , Nil}, ;
{"D3_RATEIO" , 80 , Nil}}}
//inclusão
MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,3,.T.)
If lMsErroAuto
Mostraerro()
EndIf
Alert("Inclusao Ok. Verifique arquivos e continue para estorno")
Return |