F440COM - Cálculo da comissão para titulos de adiantamento -- 116852

O ponto de entrada F440COM efetua o cálculo da comissão para títulos de adiantamento (RA), quando a comissão for pela emissão.

FINA440.PRX

F440COM - Cálculo da comissão para titulos de adiantamento ( [ ] )

()

User Function F440COM()     RecLock("SE3",.T.)SE3->E3_BASE    := SE1->E1_VALORSE3->E3_COMIS   := (SE1->E1_COMIS1*SE1->E1_VALOR/100)SE3->E3_FILIAL  := xFilial()          SE3->E3_VEND    := SE1->E1_VEND1SE3->E3_NUM     := SE1->E1_NUM        SE3->E3_SERIE   := SE1->E1_SERIESE3->E3_PORC    := SE1->E1_COMIS1SE3->E3_CODCLI  := SE1->E1_CLIENTE    SE3->E3_LOJA    := SE1->E1_LOJA       SE3->E3_EMISSAO := SE1->E1_EMISSAO    SE3->E3_PREFIXO := SE1->E1_PREFIXO    SE3->E3_PARCELA := SE1->E1_PARCELA SE3->E3_TIPO    := SE1->E1_TIPO       SE3->E3_ORIGEM  := "E"SE3->E3_VENCTO  := SE1->E1_VENCTOMsUnlock()Return