Função: MATA242 - Rotina Automática de Desmontagem de Produtos
| Abrangências: | Microsiga Protheus 11 , Protheus 10 |
| Versões: | Protheus 10 |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
Descrição:
Esta rotina possibilita a realização das transferências múltiplas, ou seja, transferências de um único produto para vários produtos, através do mecanismo de rotina automática.
Programa Fonte:
MATA242.PRX
Sintaxe:
MATA242 - Rotina Automática de Desmontagem de Produtos ( aCabecaItensnOpclVar )
Retorno:
-
(nulo)
Exemplos
Function tAuto242()Private lMsErroAuto := .F.Local aAutoCab := { {"cProduto" , Pad("PA", Len(SD3->D3_COD)) , Nil},; {"cLocOrig" , "01" , Nil},; {"nQtdOrig" , 100 , Nil},; {"nQtdOrigSe" , CriaVar("D3_QTSEGUM") , Nil},; {"cDocumento" , Pad("0123", Len(SD3->D3_DOC)) , Nil},; {"cNumLote" , CriaVar("D3_NUMLOTE") , Nil},; {"cLoteDigi" , CriaVar("D3_LOTECTL") , Nil},; {"dDtValid" , CriaVar("D3_DTVALID") , Nil},; {"nPotencia" , CriaVar("D3_POTENCI") , Nil},; {"cLocaliza" , CriaVar("D3_LOCALIZ") , Nil},; {"cNumSerie" , CriaVar("D3_NUMSERI") , Nil}}Local aAutoItens := {{ {"D3_COD" , Pad("MP1", Len(SD3->D3_COD)) , Nil}, ; {"D3_LOCAL" , "01" , Nil}, ; {"D3_QUANT" , 1 , Nil}, ; {"D3_QTSEGUM", 1 , Nil}, ; {"D3_RATEIO" , 20 , Nil}},; { {"D3_COD" , Pad("MP2", Len(SD3->D3_COD)) , Nil}, ; {"D3_LOCAL" , "01" , Nil}, ; {"D3_QUANT" , 24 , Nil}, ; {"D3_QTSEGUM", 2 , Nil}, ; {"D3_RATEIO" , 80 , Nil}}}MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,3,.T.) //inclusaõIf lMsErroAuto Mostraerro()EndIfAlert("Inclusao Ok. Verifique arquivos e continue para estorno")MSExecAuto({|v,x,y,z| Mata242(v,x,y,z)},aAutoCab,aAutoItens,5,.T.) // estornoIf lMsErroAuto Mostraerro()EndIfReturn
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aCabec | Array of Record | Cabeçalho | X | ||||||||||||||
| aItens | Array of Record | Itens | X | ||||||||||||||
| nOpc | Array of Record | Opção :3=Incluir4=Alterar5=Estornar | X | ||||||||||||||
| lVar | Array of Record | .T. | X |