Bloco de código |
---|
language | actionscript3 |
---|
theme | Midnight |
---|
linenumbers | true |
---|
| #include 'protheus.ch' |
user function
User Function myMATA242() |
Private lMsErroAuto := .F. |
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" Modulo "EST" tables "SB1", "SD3" |
{"cProduto" , Pad("02 ", Len(SD3- |
>D3 , , {"nQtdOrig" , 100 , Nil},; {"nQtdOrigSe" ,
{"cLocaliza" , CriaVar("D3_LOCALIZ") , Nil},;
{"cLoteDigi" , CriaVar("D3_ |
QTSEGUM , {"cDocumento" , Pad("000000002", Len(SD3->D3_DOC)) , Nil},; {"cNumLote" ,
{"cNumLote" , CriaVar("D3_NUMLOTE") , Nil},;
{"dDtValid" , CriaVar("D3_ |
NUMLOTE , {"cLoteDigi" ,
{"nPotencia" , CriaVar("D3_ |
LOTECTL , {"dDtValid" ,
{"cNumSerie" , CriaVar("D3_ |
DTVALID , {"nPotencia" , CriaVar("D3_POTENCI") , Nil},; {"cLocaliza" ,
{"nQtdOrig" , 100 , Nil},;
{"nQtdOrigSe" , CriaVar("D3_ |
LOCALIZ , {"cNumSerie" , CriaVar("D3_NUMSERI") , Nil}} aAutoItens := {{
{"cDocumento" , Pad("000000002", Len(SD3->D3_DOC)) , Nil}}
aAutoItens := {{ {"D3_COD" , Pad("03 ", Len(SD3- |
>D3 ; , ; 1 , ; , CriaVar("D3_QTSEGUM") , Nil}, |
; 20 , {
{ {"D3_COD" , Pad("04 ", Len(SD3- |
>D3 ; , ; 24 , ; , CriaVar("D3_QTSEGUM") , Nil}, |
; 80 , Nil}}} //inclusão
80 , Nil}}}
//inclusão
MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,3,.T.) |
If lMsErroAuto
If lMsErroAuto
Mostraerro() |
Alert("Inclusao Ok. Verifique arquivos e continue para estorno") |
|