Histórico da Página

...

Bloco de código

language	java
theme	Midnight
title	Substituição de titulo provisório
collapse	true

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050SUBST()
	LOCAL aArray := {}
	LOCAL aAuxTitPrv := {}
	LOCAL aTitPrv    := {}
	 
	PRIVATE lMsErroAuto := .F.
	
	//Estrutura para PA ( Pagamento Antecipado )Titulo efetivo
	aArray := { { "E2_PREFIXO"  , "PAGDRG"             , NIL },;
				{ "E2_NUM"      , "0001VT002"            , NIL },;
				{ "E2_TIPOPARCELA"     , "PA "               , NIL },;
				{ "E2_NATUREZTIPO"     , "001NF"              , NIL },;
				{ "E2_FORNECENATUREZ"  , "0001001"             , NIL },;
				{ "E2_EMISSAOFORNECE"  , CtoD("17/02/2012"), NIL },"001"            , NIL },;
				{ "E2_VENCTOLOJA"     , CtoD("17/02/2012")"00"              , NIL },;
				{ "E2_VENCREAEMISSAO"  , CtoD("1727/0210/20122021"), NIL },;
				{ "E2_VALORVENCTO"    , 5000              , CtoD("27/10/2021"), NIL },;
				{ "AUTBANCOE2_VENCREA"    , "001"				CtoD("27/10/2021"), NIL },;
				{ "AUTAGENCIAE2_VALOR"    , "1234"			, NIL },;
				{ "AUTCONTA"5000             , "123456"			, NIL } }
		
	//Estrutura para demais títulos
	aArrayNo array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos
	aAuxTitPrv := { { "E2_PREFIXO"  , "PAG"             ,PadR("DRG",TamSx3("E2_PREFIXO")[1])  	, NIL },;
					{ "E2_NUM"      , "0001"       ,PadR("000000001",TamSx3("E2_NUM")[1])     , NIL },;
					{ "E2_TIPOPARCELA"     , "NF"    ,PadR("1",TamSx3("E2_PARCELA")[1])      , NIL   , NIL },;
					{ "E2_NATUREZTIPO"  , "001"          ,PadR("PR ",TamSx3("E2_TIPO")[1])       , NIL },;
					{ "E2_FORNECE"  , "0001"        ,PadR("001",TamSx3("E2_FORNECE")[1])    , NIL },;
					{ "E2_EMISSAOLOJA"     , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCTO"        , CtoDPadR("17/02/201200"), NIL },;
				{ ,TamSx3("E2_VENCREALOJA")[1])  , CtoD("17/02/2012")      , NIL },;}
	
	aadd(aTitPrv, aAuxTitPrv)
		
		{ "E2_VALORMsExecAuto({|a,b,c,d,e,f,g,h,i,j| FINA050(a,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv)
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Conout("Título substituído com sucesso!")
	Endif
	 
Return

Bloco de código

language	java
theme	Midnight
title	Inclusão com Complemento de Título
collapse	true

#INCLUDE "Protheus.ch"

/*
Exemplo: 
	Inclusão de título a pagar com cálculo de IR, preenchendo a 
	natureza de rendimento (FKF_NATREN) no complemento do título (FKF).
*/
User Function A050Inc1()

    Local aArray  := {}
	Local aFKF    := {}
	Local cNatRen := "13002"      

	PRIVATE lMsErroAuto := .F.

    //Dados da SE2
    aArray := { { "E2_PREFIXO"  , "BOL"              , NIL },;
                { "E2_NUM"      , "BOL00110"         , NIL },;
                { "E2_TIPO"     , "BOL"              , NIL },;
                { "E2_NATUREZ"  , "RNF000002"        , NIL },;
                { "E2_FORNECE"  , "RNF017"           , NIL },;
                { "E2_LOJA"     , 5000 "01"               , NIL },;
                { "E2_EMISSAO"  , CtoD("09/02/2023") , NIL } }
	
	//No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos
	aAuxTitPrv := {,;
                { "E2_PREFIXO"			,cPref			, NIL },;
					{ "E2_NUM"				,cTitulo		,VENCTO"   , CtoD("09/02/2023") , NIL },;
					                { "E2_PARCELA"			,cParcela1		VENCREA"  , CtoD("09/02/2023") , NIL },;
					{ "E2_TIPO"				,"PR "			, NIL },;
					                { "E2_FORNECE"			,cFornece		VALOR"    , 5000               , NIL }},;

					//Dados da FKF - Complemento do titulo
	aFKF := { { "E2_LOJA"				,cLoja			FKF_NATREN", cNatRen , NIL }}

	aadd(aTitPrv, aAuxTitPrv)
	 
	MsExecAuto({|a,b,c,d,e,f,g,h,i,jaAdd(aArray, {"AUTCMTIT", aFKF, Nil})
    
    MsExecAuto( { |x,y,z| FINA050(ax,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv)
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Alert("Título incluídoy,z)}, aArray,, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
      
    If lMsErroAuto
        MostraErro()
    Else
        Conout("Titulo incluso com sucesso!")
	    Endif
	 
Return

DEMAIS INFORMAÇÕES

Não há.

...

Árvore de páginas

Versões comparadas

Versão antiga 28

Nova versão Atual

Chave

DEMAIS INFORMAÇÕES