#INCLUDE "PROTHEUS.CH"
User Function MNTA995AUT()
Local aRotAuCal := {} //Registro de Inspeção
Local aRotAuCS := {} //Calibragem/Medição de Sulco
Local cError := ' '
Private lMsErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela
Private lMSHelpAuto := .T. // Não apresenta erro em tela
//Inicialização para utilização via JOB
RPCSetType( 3 )
RPCSetEnv( "T3", "M RJ 01 ", '', '', 'MNT' )
//Exemplo de Inclusão
//Array por Calibragem/Medição de Sulco
aAdd( aRotAuCal, { "TTO_BEMPAI" , PadR( 'BMW01', TAMSX3("TTO_BEMPAI")[1]), Nil })
aAdd( aRotAuCal, { "TTO_DTCALI" , dDataBase , Nil })
aAdd( aRotAuCal, { "TTO_HRCALI" , "08:06" , Nil })
//Array para cada Pneu
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-01', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , '000001' , Nil },;
{ "TTP_CALATU" , 30 , Nil },;
{ "TTP_CALREA" , 28 , Nil },;
{ "TTP_SULCO1" , 24 , Nil },;
{ "TTP_SULCO2" , 24 , Nil },;
{ "TTP_SULCO3" , 22 , Nil }})
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-02', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , '000002' , Nil },;
{ "TTP_CALATU" , 30 , Nil },;
{ "TTP_CALREA" , 28 , Nil },;
{ "TTP_SULCO1" , 28 , Nil },;
{ "TTP_SULCO2" , 28 , Nil },;
{ "TTP_SULCO3" , 22 , Nil }})
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-03', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , '000003' , Nil },;
{ "TTP_CALATU" , 32 , Nil },;
{ "TTP_CALREA" , 30 , Nil },;
{ "TTP_SULCO1" , 45 , Nil },;
{ "TTP_SULCO2" , 44 , Nil },;
{ "TTP_SULCO3" , 40 , Nil }})
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-04', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , '000004' , Nil },;
{ "TTP_CALATU" , 32 , Nil },;
{ "TTP_CALREA" , 30 , Nil },;
{ "TTP_SULCO1" , 48 , Nil },;
{ "TTP_SULCO2" , 43 , Nil },;
{ "TTP_SULCO3" , 40 , Nil }})
//chamada ExecAuto
MSExecAuto({|x,y,z|MNTA995(x,y,z)},aRotAuCal,aRotAuCS,3)
If !lMsErroAuto
ConOut("**** Incluído com sucesso! ****")
Else
If !IsBlind()
MostraErro()
ConOut("Erro na Inclusão!")
Else
cError := MostraErro( GetSrvProfString("Startpath","") , )
ConOut(cError)
EndIf
EndIf
//EXEMPLO DE ALTERAÇÃO
//Array por Calibragem/Medição de Sulco
/* aAdd( aRotAuCal, { "TTO_BEMPAI" , PadR( 'BMW01', TAMSX3("TTO_BEMPAI")[1]), Nil })
aAdd( aRotAuCal, { "TTO_DTCALI" , dDataBase , Nil })
aAdd( aRotAuCal, { "TTO_HRCALI" , "08:06" , Nil })
//Array para cada Pneu
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-01', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , PadR( '000001' , TAMSX3("TTP_CODLOC")[1]), Nil },;
{ "TTP_CALATU" , 30 , Nil },;
{ "TTP_CALREA" , 26 , Nil },;
{ "TTP_SULCO1" , 22 , Nil },;
{ "TTP_SULCO2" , 21 , Nil },;
{ "TTP_SULCO3" , 19 , Nil }})
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-02', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , PadR( '000002' , TAMSX3("TTP_CODLOC")[1]), Nil },;
{ "TTP_CALATU" , 30 , Nil },;
{ "TTP_CALREA" , 22 , Nil },;
{ "TTP_SULCO1" , 18 , Nil },;
{ "TTP_SULCO2" , 18 , Nil },;
{ "TTP_SULCO3" , 12 , Nil }})
aAdd( aRotAuCS, {{ "TTP_PNEU" , PadR( 'PN-BMW-03', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , PadR( '000003' , TAMSX3("TTP_CODLOC")[1]), , Nil },;
{ "TTP_CALATU" , 22 , Nil },;
{ "TTP_CALREA" , 28 , Nil },;
{ "TTP_SULCO1" , 25 , Nil },;
{ "TTP_SULCO2" , 14 , Nil },;
{ "TTP_SULCO3" , 10 , Nil }})
aAdd( aRotAuCS,{{ "TTP_PNEU" , PadR( 'PN-BMW-04', TAMSX3("TTP_PNEU")[1]) , Nil },;
{ "TTP_CODLOC" , PadR( '000004' , TAMSX3("TTP_CODLOC")[1]) , Nil },;
{ "TTP_CALATU" , 12 , Nil },;
{ "TTP_CALREA" , 20 , Nil },;
{ "TTP_SULCO1" , 18 , Nil },;
{ "TTP_SULCO2" , 13 , Nil },;
{ "TTP_SULCO3" , 10 , Nil }})
//chamada ExecAuto
MSExecAuto({|x,y,z|MNTA995(x,y,z)},aRotAuCal,aRotAuCS,4)
If !lMsErroAuto
ConOut("**** Alterado com sucesso! ****")
Else
If !IsBlind()
MostraErro()
ConOut("Erro na Alteração!")
Else
cError := MostraErro( GetSrvProfString("Startpath","") , )
ConOut(cError)
EndIf
EndIf
//EXEMPLO DE EXCLUSÃO
//Array por Calibragem/Medição de Sulco
aAdd( aRotAuCal, { "TTO_BEMPAI" , PadR( 'BMW01', TAMSX3("TTO_BEMPAI")[1]), Nil })
aAdd( aRotAuCal, { "TTO_DTCALI" , dDataBase , Nil })
aAdd( aRotAuCal, { "TTO_HRCALI" , "08:06" , Nil })
//chamada ExecAuto
MSExecAuto({|x,y,z|MNTA995(x,y,z)},aRotAuCal,aRotAuCS,5)
If !lMsErroAuto
ConOut("**** Excluído com sucesso! ****")
Else
If !IsBlind()
MostraErro()
ConOut("Erro na Exclusão!")
Else
cError := MostraErro( GetSrvProfString("Startpath","") , )
ConOut(cError)
EndIf
EndIf
*/
ConOut("Fim : "+Time())
ConOut(Repl("-",80))
Return .T.
|
