Pesquisar

Página 2 de 17. A exibir 166 resultados (0.309 segundos)

1. M711SC7 - Manipula Array "aItem"

   Estrutura do array "aItem"  aItem := {{"C7_ITEM",StrZero(1,Len(SC7->C7_ITEM)),NIL},;                   {"C7_PRODUTO",SC3->C3_PRODUTO,NIL … ->B1_COD,nQuant,0,2),NIL},;                  {"C7_PRECO",SC3->C3_PRECO,NIL},;                  {"C7_TOTAL",nQuant*SC3->C3_PRECO,NIL
   Linha Microsiga Protheus • 03 jul, 2012

2. MATA120 - Autorização de Entrega

   " ,"001"}) aadd(aCabec,{"C7_CONTATO" ,"AUTO"}) aadd(aCabec,{"C7_FILENT" ,CriaVar("C7_FILENT")}) cSeek:= xFilial("SC3")+"F0000101" dbSelectArea("SC3") dbSetOrder(2) MsSeek(cSeek) While SC3->(!Eof()) .And. xFilial("SC3")+SC3->C3_FORNECE+SC3->C3_LOJA == cSeek aLinha := {} aadd(aLinha,{"C7_PRODUTO" ,SC3->C3_PRODUTO,Nil}) aadd
   Linha Microsiga Protheus • 20 dez, 2017

3. MATA120 - Autorização de Entrega

   ,{"C7_CONTATO" ,"AUTO"})   aadd(aCabec,{"C7_FILENT" ,CriaVar("C7_FILENT")}) cSeek:=   xFilial("SC3")+"F0000101" dbSelectArea("SC3")   dbSetOrder(2)   MsSeek(cSeek) While SC3->(!Eof())   .And. xFilial("SC3")+SC3->C3_FORNECE+SC3->C3_LOJA == cSeek   aLinha := {}   aadd(aLinha,{"C7_PRODUTO" ,SC3->C3_PRODUTO,Nil})   aadd
   Linha Microsiga Protheus • 23 mai, 2013

4. MATA125 - Contrato de Parceria

   |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ dbSelectArea("SC3")dbSetOrder(1)MsSeek(xFilial("SC3")+"zzzzzz",.T.)dbSkip(-1)cDoc := SC3->C3_NUMIf Empty(cDoc) cDoc := StrZero(1,Len(SC3->C3_NUM))Else cDoc := Soma1(cDoc)EndIfaadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd
   Linha Microsiga Protheus • 20 dez, 2017

5. MATA125 - Contrato de Parceria

   |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Verifica numero da CP |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ dbSelectArea("SC3")dbSetOrder(1)MsSeek(xFilial("SC3")+"zzzzzz",.T.)dbSkip(-1)cDoc := SC3->C3_NUMIf Empty(cDoc) cDoc := StrZero(1,Len(SC3->C3_NUM))Else cDoc := Soma1(cDoc
   Linha Microsiga Protheus • 03 jul, 2012

6. PCOM04001 - MATA120_Puntos_de_entrada_disponibles_en_el_Pedidos_de_Compra

   ://tdn.totvs.com/pages/viewpage.action?pageId=6085468 A120F4FI - Pone a disposición el filtro en las tablas SC1 y SC3 Enlace - http://tdn.totvs.com/display/PROT/A120F4FI+-+Disponibiliza+Filtro+em+Tabelas+SC1+e+SC3 http://tdn.totvs.com/display/PROT/A120F4FI+-+Disponibiliza+Filtro+em+Tabelas+SC1+e+SC3 MT120LCT - Incluye el
   Linha Microsiga Protheus - Espanhol • 02 abr, 2024

7. A710QTDBX - Solicitação de Compras

   aSavAre      := {GetArea(), SC3->(GetArea())} dbSelectArea('SC3')nQuantBaixa:=If((SC3->C3_QUANT-SC3->C3_QUJE) <= nQuant,(SC3->C3_QUANT SC3->C3_QUJE),nQuant)A711GravC7(nPeriodo,nQuantBaixa,SC3->C3_PRODUTO) // Função padrão para geração da AERestArea(aSavAre[2])RestArea(aSavAre[1]) Return(nQuantBaixa
   Linha Microsiga Protheus • 24 out, 2017

8. A710QTDBX - Solicitação de Compras

   da necessidade do produtoLocal nQuantBaixa := 0Local aSavAre := {GetArea(), SC3->(GetArea())} dbSelectArea('SC3')nQuantBaixa:=If((SC3->C3_QUANT-SC3->C3_QUJE) <= nQuant,(SC3->C3_QUANT SC3->C3_QUJE),nQuant)A711GravC7(nPeriodo,nQuantBaixa,SC3->C3_PRODUTO) // Funcao padrao para geracao da AERestArea(aSavAre[2])RestArea
   Linha Microsiga Protheus • 03 jul, 2012

9. MT103IPC - Requisição RE5

           dbSelectArea('AFG')         dbSkip()        End       dbSelectArea('SC1')       dbSkip()      EndDo     EndIf    EndIf   Else    dbSelectArea('SC3')    dbSetOrder(1)    If MsSeek(xFilial('SC3')+SC7->C7_NUMSC+SC7->C7_ITEMSC)     dbSelectArea('AFL')     dbSetOrder(2)     MsSeek(xFilial()+SC3->C3_NUM+SC3->C3_ITEM
   Linha Microsiga Protheus • 21 ago, 2014

10. PE MNTA720A - Adiciona informações ao gerar uma Autorização de Entrega pela rotina de OS em Lote (MNTA720)

    para gravação #include 'protheus.ch' User Function MNTA720A() Local aAreaSc3 := SC3->( GetArea() ) Local aItemTr8 := PARAMIXB[1] Local … Local cItemSc3 := aItemTr8[ GDFieldPos('TR8_ITEMCP') ] // Número do item informado pelo usuário dbSelectArea('SC3') dbSetOrder(1) // C3_FILIAL + C3_NUM
    Linha Microsiga Protheus • 28 dez, 2020