Histórico da Página

||Descrição|| FINA846 - Rotina Automática de Recibo  
||Observações|| Rotina automática do contas a receber localizado inclusão e exclusão.
||Exemplos||// --> Para incluir...       

User Function TesteInc()
Local aCabRec  := {}
Local aDocRec := {}
Local aFormaRec := {}
Local aLinha := {}      
Local aTit := {}

Private lMsErroAuto := .F.

aCabRec:={ 	{"FJT_FILIAL"	,xFilial("SEL"),NIL},;
				{"FJT_RECIBO"	,"000012",NIL},;
				{"FJT_SERIE"	,"",NIL},;
				{"FJT_CLIENT"	,"000000",NIL},;
				{"FJT_LOJA"	,"00",NIL},;
				{"FJT_NATURE"	,"",NIL},;
				{"FJT_COBRAD"	,"",NIL},;
				{"FJT_RECPRV"	,"",NIL},;
				{"TMP"	,"NCC",NIL}	 }

aTit:={ 	{"E1_FILIAL"	,xFilial("SE1")	,NIL},;
				{"E1_CLIENTE"	,"000000"			,NIL},;
				{"E1_LOJA"		,"00"				,NIL},;
				{"E1_PREFIXO"  , ""				,NIL},;
	   	   		{"E1_NUM"   	, "000020"			,NIL},;
	   	   		{"E1_PARCELA"	, ""				,NIL},;
   		       	{"E1_TIPO"		, "NF"				,NIL},;
   		    	{"E1_SALDO"	, 100.00			,NIL},;
				{"E1_MOEDA"	, "1"				,NIL},;
				{"E1_MULTA"	, 0.00				,NIL},;
				{"E1_JUROS"	, 0.00				,NIL},;
				{"E1_DESCONT"	, 0.00				,NIL},;
				{"nImpRetSE1"		, 0.00				,NIL},;
				{"cMotBxSE1"	, "TESTE"				,NIL},;
				{"R_E_C_N_O_"	, 48				,NIL} }
aadd(aDocRec,aTit)  

aLinha:={			{"EL_TIPO"	,"EF"		,NIL},;
					{"EL_TIPODOC"	,"EF"		,NIL},;
					{"EL_PREFIXO"	,""			,NIL},;
					{"EL_NUMERO"	,"000012"	,NIL},;
					{"EL_PARCELA"  ," "		,NIL},;
		   	   		{"EL_VALOR"   	,75.00	,NIL},;
		   	   		{"EL_MOEDA"		,"1"		,NIL},;
	   		       	{"EL_EMISSAO"	,dDatabase	,NIL},;
					{"EL_DTVCTO"	,dDatabase,NIL},;
					{"EL_BANCO"	,"001"			,NIL},;
					{"EL_AGENCIA"	,"7243"		,NIL},;
					{"EL_CONTA"	,"0000"		,NIL},;
					{"EL_TRANSIT"	,"2"		,NIL},;
					{"EL_ENDOSSA"	,"2"		,NIL},;
					{"EL_TERCEIR"	,"1"		,NIL},;
					{"EL_ACREBAN"	,"2"		,NIL},;
					{"EL_DTDIGIT"	,dDatabase	,NIL},;
					{"EL_SELDOC"	,"2"	    ,NIL},;
					{"EL_CGC"		,""			,NIL}}
					
aadd(aFormaRec,aLinha) 

aLinha:={			{"EL_TIPO"	,"CH"		,NIL},;
					{"EL_TIPODOC"	,"CH"		,NIL},;
					{"EL_PREFIXO"	,""			,NIL},;
					{"EL_NUMERO"	,"000012"	,NIL},;
					{"EL_PARCELA"  ," "		,NIL},;
		   	   		{"EL_VALOR"   	,25.00	,NIL},;
		   	   		{"EL_MOEDA"		,"1"		,NIL},;
	   		       	{"EL_EMISSAO"	,dDatabase	,NIL},;
					{"EL_DTVCTO"	,dDatabase,NIL},;
					{"EL_BANCO"	,"001"			,NIL},;
					{"EL_AGENCIA"	,"7243"		,NIL},;
					{"EL_CONTA"	,"0000"		,NIL},;
					{"EL_BCOCHQ"	,"001"		,NIL},;
					{"EL_AGECHQ"	,"7243"		,NIL},;
					{"EL_CTACHQ"	,"1234567890",NIL},;
					{"EL_POSTAL"	,"6666"		,NIL},;
					{"EL_TRANSIT"	,"2"		,NIL},;
					{"EL_ENDOSSA"	,"2"		,NIL},;
					{"EL_TERCEIR"	,"1"		,NIL},;
					{"EL_ACREBAN"	,"2"		,NIL},;
					{"EL_DTDIGIT"	,dDatabase	,NIL},;
					{"EL_SELDOC"	,"2"	    ,NIL},;
					{"EL_CGC"		,""			,NIL}}
					
aadd(aFormaRec,aLinha)

MsExecAuto({|a,b,c,d|FINA846(a,b,c,d)},aCabRec,aDocRec,aFormaRec,3)
If lMsErroAuto
	MostraErro()
Endif

Return

// --> Para excluir...                  

User Function TesteExc()

Local aCabRec  := {}
Private lMsErroAuto := .F.

aCabRec:={ 	{"FJT_FILIAL"	,xFilial("SEL"),NIL},;
				{"FJT_RECIBO"	,"000012",NIL},;
				{"FJT_SERIE"	,"",NIL} }

MsExecAuto({|a,b,c,d|FINA846(a,b,c,d)},aCabRec,,,5)
If lMsErroAuto
	MostraErro()
Endif

Return()
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus12
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| FINA846(/*aCabRec - Cabeçalho do Recibo */ ,/* aDocRec - Documentos a serem recebidos */ ,/*aFormaRec - Forma de Recebimento */, /*3 - Opção para Incluir; 5- Para excluir */ )

** Sendo que para efetuar a exclusão somente é necessário passar o parâmetro aCabRec e Opção .
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| FINA846.PRW