#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" , "BMW01 ", Nil })
aAdd( aRotAuCal, { "TTO_DTCALI" , dDataBase , Nil })
aAdd( aRotAuCal, { "TTO_HRCALI" , "08:06" , Nil })
//Array para cada Pneu
aAdd( aRotAuCS, { "TTP_PNEU" , "PN-BMW-01 ", Nil },)
aAdd( aRotAuCS[1], {{ "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" , "PN-BMW-02 ", Nil },)
aAdd( aRotAuCS[2], {{ "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" , "PN-BMW-03 ", Nil },)
aAdd( aRotAuCS[3], {{ "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" , "PN-BMW-04 ", Nil },)
aAdd( aRotAuCS[4], {{ "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,3,aRotAuCS)
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
//ExemploEXEMPLO deDE AlteraçãoALTERAÇÃO
//Array por Calibragem/Medição de Sulco
/* aAdd( aRotAuCal, { "TTO_BEMPAI" , "BMW01 ", Nil })
aAdd( aRotAuCal, { "TTO_DTCALI" , dDataBase , Nil })
aAdd( aRotAuCal, { "TTO_HRCALI" , "08:06" , Nil })
//Array para cada Pneu
aAdd( aRotAuCS, { "TTP_PNEU" , "PN-BMW-01 ", Nil },)
aAdd( aRotAuCS[1], {{ "TTP_CODLOC" , "000001" , 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" , "PN-BMW-02 ", Nil },)
aAdd( aRotAuCS[2], {{ "TTP_CODLOC" , "000002" , 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" , "PN-BMW-03 ", Nil },)
aAdd( aRotAuCS[3], {{ "TTP_CODLOC" , "000003" , 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" , "PN-BMW-04 ", Nil },)
aAdd( aRotAuCS[4], {{ "TTP_CODLOC" , "000004" , 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,4,aRotAuCS)
If !lMsErroAuto
ConOut("**** Alterado com sucesso! ****")
Else
If !IsBlind()
MostraErro()
ConOut("Erro na Alteração!")
Else
cError := MostraErro( GetSrvProfString("Startpath","") , )
ConOut(cError)
EndIf
EndIf
//ExemploEXEMPLO deDE ExclusãoEXCLUSÃO
//Array por Calibragem/Medição de Sulco
aAdd( aRotAuCal, { "TTO_BEMPAI" , "BMW01 ", 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,5,aRotAuCS)
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.
|
