Histórico da Página

#Include 'Protheus.ch'
//---------------------------------
// CHEQUE SOBRE TITULOS            |
//---------------------------------
User Function MyFA390()
	Local aArray := {}
	Local cCheque:= "2906001"
	Local nOpc   := 2       // 2 - Chq s/ titulo, 3 - Avulso

	Private lMsErroAuto := .F.

	aArray := { { "AUTBANCO"    , "237"             , NIL },;
            	{ "AUTAGENCIA"      , "33901"            , NIL },;
           		{ "AUTCONTA"     , "125008    "              , NIL },;
            	{ "AUTCHEQUE"   , cCheque             , NIL },;
            	{ "AUTVENCINI"  , CtoD("21/06/2016")          , NIL },;    // Remover caso utilizar opc 3
            	{ "AUTVENCFIM"  , CtoD("29/06/2016"), NIL },;                   // Remover caso utilizar opc 3
            	{ "AUTVALOR"    , 5000, NIL },;
            	{ , NIL },;
            	{ "AUTFORN"     , "001"             , NIL },;
            	{ "AUTBENEF"    , "F PADRAO            "              , NIL },;
            	{ "AUTNATUREZA"  , "10101     "      , NIL } }

	MsExecAuto( { |x,y,z| FINA390(x,y,z)} ,0, aArray, nOpc) 

	If lMsErroAuto
    	MostraErro()
	Else
    	Alert("O cheque "+cCheque+" foi gerado com sucesso!")
	Endif
	 
Return