Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001MF1 - Customização do Resumo do Orçamento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXA011), executado em todas as opções do menu da rotina Orçamento por Fases (OFIXA011), tem como finalidade possibilitar a customização da tela de Resumo do Orçamento.
Eventos
 User Function OX001MF1
                                      
aAdd(aOrc,{'u_RetValSrv1()',"Valor do serviço",0,"u_RetValSrv2()"})
aAdd(aOrc,{'u_RetValPec1()',"Valor de peças",0,"u_RetValPec2()"})
 
aAdd(aOrc,{'MaFisRet(,"NF_BASESOL")',"Base ICMS Ret.",0,"VS1->VS1_BRICMS"})
 
aAdd(aOrc,{'MaFisRet(,"NF_VALSOL")' ,"ICMS Ret."     ,0,"VS1->VS1_ICMRET"}) //Campo criado no modulo padrao eh VS1_ICMRET. - Carla 27/10/11.
 
return
                                                        
User Function RetValSrv1() 
nSrv := MaFisRet(,"NF_BASEISS")
return nSrv
 
User Function RetValSrv2() 
cQuery := "SELECT VS4.VS4_VALTOT "
cQuery += "FROM "
cQuery += RetSqlName( "VS4" ) + " VS4 " 
cQuery += "WHERE " 
cQuery += "VS4.VS4_FILIAL='"+ xFilial("VS4")+ "' AND VS4.VS4_NUMORC = '"+VS1->VS1_NUMOSC+"' AND "
cQuery += "VS4.D_E_L_E_T_=' '"                                             
 
dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVS4, .T., .T. )
    nSrv := 0 
Do While !( cAliasVS4 )->( Eof() )
         nSrv += ( cAliasVS4 )->VS4_VALTOT
      dbSelectArea(cAliasVS4)
      ( cAliasVS4 )->(dbSkip())
   Enddo   
return nSrv
 
User Function RetValPec1() 
nPec := MAFISRET(,"NF_TOTAL") - MAFISRET(,"NF_BASEISS")
return nPec
 
User Function RetValPec2() 
 
cQuery := "SELECT VS3.VS3_VALTOT "
cQuery += "FROM "
cQuery += RetSqlName( "VS3" ) + " VS3 " 
cQuery += "WHERE " 
cQuery += "VS3.VS3_FILIAL='"+ xFilial("VS3")+ "' AND VS3.VS3_NUMORC = '"+VS1->VS1_NUMOSC+"' AND "
cQuery += "VS3.D_E_L_E_T_=' '"                                             
 
dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVS3, .T., .T. )
 
    nPec := 0 
  Do While !( cAliasVS3 )->( Eof() )
         nPec += ( cAliasVS3 )->VS3_VALTOT
      dbSelectArea(cAliasVS3)
      ( cAliasVS3 )->(dbSkip())
   Enddo   
return nPec
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001MF1 - Customização do Resumo do Orçamento ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 aOrc := {}
aAdd(aOrc,{'MaFisRet(,"NF_TOTAL") - MaFisRet(,"NF_DESCZF")',"Total",0,"VS1->VS1_VTOTNF"})
aAdd(aOrc,{'MaFisRet(,"NF_VALICM")',"ICMS Calculado",0,"VS1->VS1_ICMCAL"})
aAdd(aOrc,{'MaFisRet(,"NF_DESCONTO")',"Desconto",0,"VS1->VS1_VALDES"})
aAdd(aOrc,{'MaFisRet(,"NF_SEGURO")',"Seguro",0,"VS1->VS1_VALSEG"})
aAdd(aOrc,{'MaFisRet(,"NF_DESPESA")',"Despesa",0,"VS1->VS1_DESACE"})
aAdd(aOrc,{'MaFisRet(,"NF_FRETE")',"Frete",0,"VS1->VS1_VALFRE"})
// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aOrc

If ExistBlock("OX001MF1")
ExecBlock("OX001MF1",.f.,.f.)
EndIf
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não