Histórico da Página

#Include "'Protheus.ch"'

User Function Auto695()

	    Local aFunc := {}
	    Local aItem := {}

	    Local nOpcao := 4

	    Private lMSHelpAuto := .T. // para naoNão mostrar os erroerros na tela
	    Private lMSErroAuto := .F. // inicializaInicializa como .F.falso, voltaretorna .T.verdadeiro se houver erro

	    aAdd( aFunc, {" 'RA_MAT"', '00000201', Nil } ) // Array com a chave, setando noo funcionário a ser entregue o EPI.

	    // Dados dos EPI a ser entregue ao funcionário, deve -se preencher no mínimo os campos obrigatórios para que ocorra a entrega.
	    aAdd( aItem, {;
 {"       { 'TNF_CODEPI"', '00000000000000106' , Nil },;
	               {"{ 'TNF_FORNEC"', '00000101', Nil },;
 	       { 'TNF_LOJA', '01', Nil },;
        {" 'TNF_LOJA"NUMCAP', '00123', Nil },;
   
	     { 'TNF_MAT', '01', Nil },;
        {" 'TNF_MAT"DTENTR', '000002'Date(), Nil },;
	        { 'TNF_HRENTR', Time(), Nil },;
        {" 'TNF_DTENTR"QTDENT', Date()1, Nil },;
	        { 'TNF_MOTIVO', '01', Nil },;
        {" 'TNF_HRENTR"LOCAL', Time()'01', Nil },;
	 // Integração com o estoque
        { 'TNF_INDDEV', '01', Nil },;
        {" 'TNF_QTDENT"CODFUN', 1'01', Nil };
    } )

	    dbSelectArea(" 'SRA"' )
	    dbSetOrder( 1 )
	
    dbSelectArea(" 'TNF"' )

	    MSExecAuto( { | x, z, y, w | MDTA695mdta695( x, z, y, w ) }, , aFunc, aItem, nOpcao )

	    If lMSErroAuto
		
        MostraErro()

	    EndIf

Return

O Modelo acima está baseado em campos padrões sem nenhuma integração ativa ou campos adicionais. Sugere-se que o desenvolvedor efetue uma simulação manual, com as integrações ativas, e observe todos os campos que poderão ser obrigatórios e deverão ser adicionados em suas respectivas posições para evitar erro no momento da execução pela falta de campos. O modelo acima não necessariamente é funcional e trata-se apenas de um exemplo orientativo de utilização.