Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MATA220 - Controle de Itens do Estoque
Descrição:
Programa Fonte: MATA220.PRX Sintaxe: MATA220 - Controle de Itens do Estoque ( PARAMIXB1PARAMIXB2 ) --> Nil Retorno:
Observações
Exemplos User Function MyMata220()Local PARAMIXB1 := {}Local PARAMIXB2 := 3Local cProd := "PI001"Local cArmazem := "01"Local cQtdIni := 30PRIVATE lMsErroAuto := .F.//------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "YY" FILIAL "01" MODULO "EST" TABLES "SB9"ConOut(Repl("-",80))ConOut(PadC("Teste de Cadastro de Saldos Iniciais",80))ConOut("Inicio: "+Time())//------------------------//| Teste de Inclusao |//------------------------Begin Transaction PARAMIXB1 := {} aadd(PARAMIXB1,{"B9_COD",cProd,}) aadd(PARAMIXB1,{"B9_LOCAL",cArmazem,}) aadd(PARAMIXB1,{"B9_QINI",cQtdIni,}) MSExecAuto({|x,y| mata220(x,y)},PARAMIXB1,PARAMIXB2) If !lMsErroAuto ConOut("Incluido com sucesso! "+cProd) Else ConOut("Erro na inclusao!") EndIf ConOut("Fim : "+Time()) End TransactionRESET ENVIRONMENTReturn Nil Parâmetros:
|